(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    184614,       4778]
NotebookOptionsPosition[    176182,       4502]
NotebookOutlinePosition[    176539,       4518]
CellTagsIndexPosition[    176496,       4515]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<~/quadrotor/fenino/log_m_2_d.dat\>\"", ",", " ", "\"\<Table\>\""}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5475222205828867`*^9, 3.547522251832383*^9}, 
   3.5475235583973913`*^9, 3.547523592830348*^9, {3.54752405137799*^9, 
   3.5475240515039463`*^9}, {3.54752486769796*^9, 3.5475248678895397`*^9}, {
   3.5475250220536003`*^9, 3.547525022197274*^9}, {3.547525086212823*^9, 
   3.547525086364168*^9}, {3.5475613971910133`*^9, 3.5475614079652357`*^9}, {
   3.5475617903807287`*^9, 3.547561790586718*^9}, 3.547563072390427*^9, 
   3.5475632903363647`*^9, 3.547563387851821*^9, 3.547563481265115*^9, {
   3.5475668500615387`*^9, 3.547566851177949*^9}, {3.547567290064948*^9, 
   3.547567290696539*^9}, {3.547567341752919*^9, 3.547567341918943*^9}, {
   3.5475673835902023`*^9, 3.54756738422968*^9}, {3.547567625423263*^9, 
   3.547567625535742*^9}, {3.5475678764351063`*^9, 3.547567919943589*^9}, {
   3.5475687324999743`*^9, 3.54756873623359*^9}, {3.547568904885604*^9, 
   3.547568926508313*^9}, {3.547569487175144*^9, 3.54756949316573*^9}, 
   3.547569830430244*^9, 3.547569908913829*^9, 3.5475707038924093`*^9, {
   3.5475708939918423`*^9, 3.547570906519705*^9}, {3.547848367780451*^9, 
   3.547848378540362*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"d2", "=", 
   RowBox[{"Import", "[", "\"\<~/quadrotor/fenino/a_train5.csv\>\"", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5475695898663387`*^9, 3.5475695908505983`*^9}, {
  3.5475702286031847`*^9, 3.547570232801223*^9}, {3.5475709139833517`*^9, 
  3.547570914294127*^9}, {3.547845483043334*^9, 3.5478454892026997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"d2", "=", 
   RowBox[{"Import", "[", "\"\<~/quadrotor/data/log.csv\>\"", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5475243552874413`*^9, 3.5475243643506603`*^9}, {
  3.5475247515412493`*^9, 3.547524763533143*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"d", ",", "d2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547524365634904*^9, 3.547524371630802*^9}, 
   3.547524874697295*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dx", "=", 
   RowBox[{"d", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dy", "=", 
   RowBox[{"d", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "7"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dz", "=", 
   RowBox[{"d", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "8"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.54752229361653*^9, 3.5475223441127863`*^9}, {
  3.5475614115424128`*^9, 3.547561413431695*^9}, {3.5478454604521217`*^9, 
  3.5478454620665607`*^9}, {3.547848417413829*^9, 3.547848418643145*^9}}],

Cell[CellGroupData[{

Cell[BoxData["d"], "Input",
 CellChangeTimes->{3.547566862887665*^9}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{278., {2., 8.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "\<\"Terminal ready\"\>", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\<\"8.000     990.799\"\>", ",", "5.199`", ",", 
             RowBox[{"-", "3.799`"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"996.`", ",", 
             RowBox[{"-", "1.`"}], ",", "\<\"    12.000     992.599\"\>", ",",
              "3.9`", ",", 
             RowBox[{"-", "2.299`"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "1010.`", ",", "\<\"    -3.0008.000     990.799\"\>", ",", 
             "5.199`", ",", 
             RowBox[{"-", "3.799`"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"996.`", ",", 
             RowBox[{"-", "1.`"}], ",", "\<\"    12.000     992.599\"\>", ",",
              "3.9`", ",", 
             RowBox[{"-", "2.299`"}]}], "}"}], ",", 
           RowBox[{"\[LeftSkeleton]", "984", "\[RightSkeleton]"}], ",", 
           RowBox[{"{", "\<\"imap is        : \"\>", "}"}], ",", 
           RowBox[{"{", "\<\"omap is        : \"\>", "}"}], ",", 
           RowBox[{"{", 
            
            RowBox[{"\<\"emap is        : crcrlf\"\>", ",", "\<\"delbs\"\>", 
             ",", "\<\"\"\>"}], "}"}], ",", 
           RowBox[{"{", "\<\"\"\>", "}"}]}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{49., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 6830, 23246988569317255937, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{52., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 6830, 23246988569317255937, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{82., {2., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 6830, 23246988569317255937, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{74., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->{Deployed -> True}],
  Out[6830]]], "Output",
 CellChangeTimes->{3.547566863102158*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"dx", ",", " ", "dy", ",", " ", "dz"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.547522318440271*^9, 3.547522321613637*^9}, {
  3.54752362562738*^9, 3.547523633442978*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJx12zuQ7GaZgGHVbtKhAoIJCLTUFtVFUVtaLssssFjLxdt416wwGMaAOToH
MI19bAuOfaa52eJmZsFb1eGECifsiJpQ4YQdTqhwwg4nhOV/3676v1pOonrm
++9S6/JJ5x8evfnCD/6uKIo//X1R/N82/Ts889fN8O2GP6RtoxfBZdpO+gMh
fhL8Qba6avL+PkT57+B/DPEPh/6Wob2PhPhHQ/1/Iv4tXAf/M1v7/1gY/8dD
f58I8U8G/0vo/1NhfKeh/38N5T8dyn+G9h3fZ0P834I/F8b7THCTe2jC+P+d
vzO+AReO9/Mhrl8i/gW2Z/wdD9/k719kvN/g77jBxZdCHBfGn2X7InE8fZ2/
/wdbPODma/x9hV8gjgtcfJn4V4njARfP0Z9xXBj/z7y9AQ8tf/8v2sdDcPE8
2/8m/nz4+1fy7eD2ubye8xiCC/txHRzHs2Gcrqt2PzhP9qvrdDwuNMeN6+Rx
fVxnjzvt70DzO5q0v0P3o79Tze9y0NYP5T0uPC80wYP2PKE5D3nced5oNOeB
IXjSzO94HPM7PR73rMfgcY/9HbieBb8jf1eNvyv2z/F3xnE/Wd797++S46XR
HIeD5nib8PG4eil3o/09YI+DSbsfOW+4XxvPI+ynIdjz5HE/cp5yv3vecj8e
z6PY8+LxuPA8yn7xvOp+HzTxCR+Pg5dD/Zfz+PBy3t4UXHw31A8esMfVFFw8
yMfXPMjjw4O8velBGH+Xx6suH1+DXc+uC/MLHm2P43QK7c+25/gf5v1VD/Py
TXD3MB/PoImPD/PxTMGz7bn/H7Hl+Ks0x2uDPW92xj3Pan4/o+W9Lmh+T3OI
F9/L61ea60Sj+b12+HgdCh4t7/lac92fg4vvs+X8VWnOd43mPqzT3McNmn/j
MT6l/o/tJc/6M8nFD2jn88mVfj65wcULyZ3+evJg+W8kj3jCk/GX6B8336b/
V/DL9I+LB/RvvKN/3D2kfzzj0frfo3/Lf5/+LY+LHzaMm/7x8EP6xxPujP+I
/o2/Sv+4e43+jeMZN4/pf017uMLN6/SPJ9zh+Q36Dx4tjydcvEn/to+LHyWP
uMIDbkK8w2VP/yE+4o74hBs84xoXr+aucIEbXOHu1by94dW8vxHv7B9v7T+U
L17L269ey9tv8Oz8sesz4Mn54w5P2PWZg4vHefvV43w8zeN8PB1unf/jfH4j
npx/8BxcvM54nH9wgwf7x67f8Ho+vvH1fHxT8Iw9foo3ko/7H/f2/0boH7t/
h1B+xK7HFMrPeG//b+aucPFj+sc97vAWD3iHR9z9hP6N4zm46JNHXPZ5vAqu
Q/kG73Eb3AX3uHjC+HGJt/hA+RFXxHe4wVPwPtSfNetz0K7/j5kPx3+pOd9V
eFgn15rzdYOnR8mt/m5yp7n+9NZ/MXnAxVeTt/q55NHyX0ze6SZ5svzHkvf6
w8mzLpIPmut58RO2XP9Lzf1BhX0erDX3Pw32ua+1Pvd/neW5b++Ncx87YO/r
ttj7kBF7Hd/Zn9c12+O6src+5/lZc949WJ/zYPGE/jkvldjzToU9L9TY33GD
/R212N9JZ3ncY4+TAbtftvbPOMcn+Tx3lnddnuTt7p/kf5+f5O0cwt+Lt/J6
JW7ZVmwHtjXbHdsm2Hp7tl1wz7Z8O293ZrtlWxAfQ/1dKDe99f+XG/9Gu4cw
DvvZ/o1xVW/n5eu383k3YZwtdh26UL8P/Q3Ydd0Gj6G/HXZdp+B96G8O4zmE
8sXTPF7i4/xDvA5uQvkWu5867Dr3+LjO2HXd4uO6Ps3nuXuaz2vCrtP+aT7P
2fb8u/07rnO2/j24Os/L1+d5+815Ps/2PJ9nF+L9eT7P4Tyfx/Y8n8dof67r
ef736Twfx97+2M7neb1DiBebvN9yk8erTT7OOsSbTd5vG9xt8n77TV5v2IRx
bPJxjJswj+Bpk89vb/vOHx/3m+07/58yTvc/dv9W+Pi7NO7xj4/nP+z5tMNe
J3rsdW/AXse3tu99luW9D8PeZ022732k5vo0W5/r2wH7HFL8jLjPVdjnxgr7
3Fxjn9sb65NXaI0/StsOm5fpbc88k/3hrfXxaPvkzXbYPN9kee4v9sbxbH18
sLx5wZ+zJa9XYvOGFTYvWIfyTXAbynehvT54CN5q8qQjNu+6M25+zf7Jf+2D
Z+uT/zpY3/zbL4jTXqnJE1fYPG+NXc9GE2+x699p4n2oP4T2t8Gj43H+1seT
7eN98Gx55nMwbl78l2xxic3TV8E1Nt/YGCef2BrHne3j3vLmxy3Pe5Ut9v56
1OQHd7bH+5rJOO/N9sZ5nzBr3jcctO9f3mHLe8XynTxead6f1Nr3LZr3uK3m
PXGnPzD9ddNr8oOD/mjyVn8ieQze6c8lT5rnof1xPsmzPk0+6E8mF+86v+Ty
3Txe6WeSa/3Z5EbTfqs/ndyF8r3+SPKgl8lbzXqN+kPJuxCfdJm8D541/w6a
9+J/eZBMW573Ftj3pKVx8t8n2t8H9nyxxMfzJfa9wKntP6Ic9nlvZXmuL63t
4zNsHrgzTv217RHvQ/0NNg872B6+CN5qroeXjp/nzdH58jx5Zf88P+6Mc72+
xuYBJteT+4Eb6/s8h33uu7U97+8dH77DPucdjON718Pn5l8xD8azwOZVSuz9
xgk2r1Nh70+WwTV2/qfGfX7WrN/K/lnvFrs/z7DvTTrLk09Ya47P3vK8f90c
PaV+9ZeTLxyv+Rjb433DpfGz5NH6+CrEd9bnfcS1Jj45f95H3Nge7x/2mnzT
reV5HzC7P8jv39k++fcDNh95j80nFr9ObsmXLXBNPq3Ee3yCd28lV3h4O3lp
/afJNS7Pk0+tjxvcbJJX9odbx/fT5DN8wB3ufpa8xtXPk3s84o3xXyQPuMcX
xn+ZvHU++NLx4dH4O8lXeMA7POFr3LybPOEdvrE83uOTIfkWl3h2vPgOL/Ah
tH+PR1z8Jh/fAh+YX4l3rM8JrlnPSrP+S+z+q/Fx/+Mtx0uDW46nlfXNJ+OR
4/XM8ZmPxxXH+xrP/B5650f+doMH3r8Nts/7uwvj30neYn/Pl7j4SvKoyc9e
aa7/O839zrXmu7hJc792o7nf2zse7hdvNdfb2flxv3xnfZ4nDo4f31vf55/f
Up/nqwX2u4JSc/0+sTyusO/tl/pR2tbY986ntufzo+XxSnP9be0Pn1mf62+H
fe+41jzP9tbHG+vz/DvYH9efC+z1aIt973aJvd6Ptk97V6H/ne3j6zDeKczn
xjjXv7394duwHrP18Z31Wc+D68/90b3z8z3879jiBfY7hRL7HcOJcfZ3hX2+
X2Lz+bX18Wko32C/M1lpjr/W+hyfZ44Xd5bnfnONj+8bNMf7xvZ8/rY96l+E
+Nb26e/S9vAY6l9ZH++Cr4Mn28M3ob196P82jG/WzPdO+7xrezwP34fyxXt5
f4v38vGV7+X9n1je3z92PZaW9/5fM97T4Mb+GM8qxFvbx2ch3gWvbc98C/b8
tMF+pzJg3+tfOD/fa2vuVy9t3/yc7XM/fYXN/+0sz/35NTafOGnyjzfO13ym
/ZO3vMXmWWfbx3f4mMcMvrc+Ln5P/3iBzSuWwSfYPGKFzTsusXnKGpvHPA3t
Ndg86CqUb7F507Pf5/PpsHncteNjPXrr4w02jz04ftb7wrh5esfH/rnEvhcZ
rc/+vHL8vq9wPPgaH99fBN84H9rfOx58a/u+Bwm+sz3fd4T53Lt+5r8v2OJF
cIl9/3ASXAUvse9pauz7jdMQb7DH/wq73i32fcpZcIddnzV2PXvse7iN8/P9
k+X5fV7Yvu/jjPN7vrQ/36vavr9/7Hv4nfP1+d/65u8dD/n7G9eL/MFec79x
i/3OaHZ83F/cYb/jOjg+7h/u7c/v1P6HLfcLC+x3gyX2u8YT7fnf8p7/sfnf
WnM9OrU/86fGyY+usN9btpr74TNNvrOzPb6HXmv+X0Wv+Z57o/1+UZN/u9Dk
A7f648mXmu8txlD+SpN/3AVfa753nPQXkm+cH94bfzb5Nni2/Cr5TvN8cnD/
tMn3mvxG8Yfk5mvJC2y+o8QF+YsTy/M9S2X5byUvsc9PtfXxaXCj+V5mZX3c
avIhZ7jye0zr47Xj43muxz7fbfDM9zqD7fO95oXt83y4xX6/eWn75GNG5/9K
8pVx8jM72+P589ryfL852T7fb944H55f944P39oe32vOxvGd88UH28f3oXzx
R9rje6cF7nCJZ3wSXGG/D12GeB18ihue1xvs93Mr3JJvao2THzjDBfmlDtfk
G9bOh/xQj0fyExt8IH8x4C35jgvnTz5kiwfyJZf4lPzKiNf4yvXAO3yHr/Hy
V8mT9fENvsR7vMO3jh/PuPx18p3jwwe8wvf2h4v3k3u8wBtc4gGfhHj1ft7+
Eje4xjU+xQvc4Dvms3o/n1+LJ3zmeHGHK7zGI+vd4yXeWJ/9OThe9vcF3pPv
2loeX7oeeMQlvsIzx9cuxK+tT3zCHb7RHK97XOBbvOV4n10ffg93lie/dnD8
5NPujZv//d/kkd/jAnt+KLH55RPs9+aV5vy2xM0ryTWuOF+eGuf829g/5+eV
cb7Hbx0P14sz++N602nyc+vg3vpcvzbGv5k8YK9vF8bx1vHgy+DR+nzPeWV/
XD93ln9x+jMfDLx4
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData["
1:eJxd2z+Q7VZ9wHENabZUQXGLFAqTYe4wmYwIIWwSEgQEsyEBhM2fDcFYfn7v
+dr8sbCNvfwXkDg3/2ZUbqlyy1tltovKLVVuqXJLlVtm4vP9aka/19z5vN/5
Kx1JR0dn/+jJWy8++0iWZf/zB1n2/7/p3/K5D3/yn4z8R5V+9Fm1jech/tEQ
3wX/YfLS4iLEPxb8x8mF/njybP59qP8Tofw/SS6N/2kov0yu9SdD/M+CPxXq
+/PQvk+H+F+E+GeSJ9t3Hur/y5D/r0L+v05e+/fZkP5vgv82+HPB1dYdXvv7
+WSPX4cr419Ibo3jwfgXKf9t4viEs79LLt4hjgecfSl5MY6bd4m/QP6fEscD
zr5Me98jjgecXSTn7xPHPc7+nvgVcdzj7CvEf0Yc9zj7h+TJOG5/Tvwfk2vc
4dH4V5PLXxDHHc6+RnrjuP4l8a8nz7jD2a+I18kVrnCLOzzgEee/Jv83qA9X
eMQdXvCIm9+Q/8WtK9zhDg94DM5e2qavgruXtuWPuDX/N0N+PJofT+bHZUf+
byUfcYUH3OE7POLZ/N9O3v2W/HiPO3yOR9zg7DvJtflxZ358bf7g7DL5xvz4
1vx4Mj9+MP8/JT+aH+9+R/7gEZ/j7LvJFa7w3vwhPuIL8/9zyI9b8+OD+XFj
/u9t4xXuzB/iI74y/8vb9FVw9/I2/Yivzf/9kB/fmB+fzI9787+ydRXcvbIt
b8RH8zfb9hRNKK/Zpm+a0L/gIXjEl3jG6/F7NdnzVWDPT4U9/k1wF9IPr27r
G1/d9mcO9WVPtv0rgivs8W+COzxZP76z/uAZj9b/2jZeYM9XFdy8tq2vC/mH
EB/xvfXjs99T/9PkDBf40frxg/U/3ZbXPQ3149n6n277Oz/dti97tk1fPNuW
Vz3b1tc82+bvQnx4tq1vDJ7xrfU/T/Z8Fs+36avn2/QNXq8v7HgZ8Dr+seNt
Ds5e37rAXh/V69vymte39XUh/RDSjyE+4/X+c9imLw7b/lWHbfua4A6v1x9e
75chPod49sa2fcUb2/5VwQ1exx92/AzBI3Z8z3jv+H8zuXT84wpXb27TN8Ed
zvGAF+vHXk8zXsffD5LX8YcH+489fg1en4/Y5/GA1+c9rvCMc5/fP0zumY8U
OHc+g50/Nbh0foedXw44wyOumJ/OeJ3//ih5ZD5d4BOu8Mx8vMG183XcMJ8f
zM/8f8Q97wsz7ny/+DHl8z5SYN9vKuNvUT/Ofkz9uPgh9Rt/k/rN/zr16+fU
/xb1ES/wgCvcHKgfj7jDM/UNOPsR9Vs+7Z1Nj7OW9tO/HDe4wBUu8YAr3OE6
pG+CWzziLrg3Pe+3Q/AJl3jEPZ4sD8/GOZ8Lnn0//Ulyy/nP8eJ4MM54KbHv
pxWecI1PuLE83OLR91k84z7UN4T6TiE+4gpPuMZziC/B2dtb58EFbuz/29vy
K+z7ex3c4Mz+49H1ADzg3vLxYP34hEs8Ys/nZH48By+W5/l/h/7i/J1t+gJ3
uAyusOszdSivwa5XtXhdb8GuB/Uh/WB9jn/cOv6DJ9vv+A9eQvrs3W35+bvb
9EVwib0eK+z1WAc3uLD/Id6F8ns82H/s8TiZn+M3Wr7n3/54/k3PeFlsv+tP
P012PSrHjscCl45/vI5/7POkxr3jH3u9tni9/nHO86m3fDzYPnzCEx7Nz/Nu
Mj+ebQ9ecOb613ukx3lwEVziEVd4wnVI3xin/hYvrteFeP/etr0DbvHpvW1/
R1zafzz7vDc/XrDHM3uf+nCOF1xgj3cZ4hUecP3+tvwmxFtc4s703v+x85EB
r/c/7HrriL2fTLbP6x+v17/t4XmbXSV7febY67u42uYvsddvhUfmE7Xl4QY7
X2rxzPyksz7iPR7wYHp8ws5PRtPjyfR4tn77H9JnP6P9zn9wbv+xx6PEjf0P
rvHJ+19wG9xZv/c/7P14wB7vU/AY2j9h53MzzvAS4tnPkz3eOfZ8FMEl7nAV
4jUeOb8NLnCLnZ92wb3tcT6N5x8kn3CDR+vHk+WRf7Z+vJif+rJfEPf8Y8dH
gR1Ppek9/8E1Xp9/wS12/tFhnyc99n43mJ/76QlnvP+MuMIT9nvGrMm/2F6/
j/yS8p3/4cX5D3Z8l9jrucIjx7/G1RvJDS54n2n1s+QOz0+Se+t7NXmwvFeS
T/p7ySPuvp08Gf9m8mx76+RFfzk5+xX+QnKuP5Vc6I8ml5rvjpXmu16t+U7W
4PW7j+Y7TIf9rtAbZ519wK5rn0zPOvCIXTedsOuAs+lZd1uw61jZrymfdaEc
uy5UYNdVSuy6R4VdV6ix7+mN6XnvbS2P99DO9L6n4fU9y/S+V+H1PQL7HjDZ
Ht8LsPPexfYwD8x+w6/zKOy8rcDOg0rsPKgyvfMey/O5jZ0ntJaHuxDvLd/n
dPApeAyebI/zCOy8ZMHOK7Ju6zPsPCXHzlN22HlK0W3r3weX2HnYufV5/KwP
X5jf44mdp16GeBN8sD7n3dh5+hVe3xNMj4+2B/eWj6/Nz3ga7A/j7Qav6wDY
dZhb62MdbMSuO95h13kn+8/1em99Xt/mxw/Gvd7tP/kfPZ9c39lv+eX6PcOu
w+XGaf8Oe/0W2HWgPXZdp8Suq5xj1xEq7HvzBfY9r8a+t10GN5bH+T3YHs+/
6T3/pme8dNaHj8E99r3kOsQH+8d4v8G+h5yw1+Otx9frN5R3F9o3mZ/234f+
z+bn+D2Y3/ud9XG8Hy2P85H9jl98hl2ny7HrjDvsumaBHS9744ynEruOfm6c
8VdZPuPzAjt+a9vH+L40/frdj/J4Hh70+h2Y9DxPr2wP3+E7y2dfwVGzj6LX
7Bu51uyrGTT7jm708r8f/pz0fvzw51Z/JnnUn0++s71fSp70V5LvTc98Ztbf
SH7A40vJi/mZDz1q5kvZ78n/neQzfZmcB+/wSPoCd8T3xnFpnPTnxr+VXOEK
X5ie9tfG8aXteTG5sTyOx8H8X01uTc/xuzLO8e2MM/876s8m9/o8+Vp/PHnQ
zA9vNPviTpp9breafWlj8J1mn9m01p9+79f2pd/Z/jDffNDss1qCHzX7jLJ/
oR3syznDXh+5cfZd7LD7Fgrsd/c99jtyaXlc7+fGnT9ivyNdmJ77TY29H12a
nvtVY3u4vx2w68itce6HV+Z3XRV7/zxin++97fX5j13nHMyPb8yPTx4/fGt/
8Gh/8V3wFOq7D/nn4IeQf8Gu6z6G/mX/SjvwGXZdO8eui++w6/YF9jvDHvvd
pMR+xznH63cvy+P5cWF6xkNt+3ieXFq+30XNz3g6GOd9pQ2+sjy/e1sfPob0
vf0jfu3xwYPpma/dWL77CoJvLc99BiF+Z3/w5PGi/PuQf7Y9xB9Cexf7R38e
Nccv+4D0zv8+2MZz7HfyXXCBPR5789O+8oNt/86x75/VB9v+XoT8dYhfBjch
/SGU35qe+cOV7XGfkv1hfnDU7LPrTc/98dr4C9Sr2Sd8oz8xfvhz0jxPbm3P
C8njWn7ynceT5+GkeZ7em/67ybPlsx7yYPrvJy+4aJIfTc/6SvZvpMdnuGM9
Jg/e4eG15AJnT5P3mvWdEhfPk89xgyvjrA9dWB+ujfO9+1K7vmT78QHPuLW9
fB+/snzWqzrzsz541K5HWh/rXde2n/XAwfLwTfDJ+vFtiI+hvLsQn6wf32va
N4f2P+CR/i4eD47no+mfJ2dH6uP8neGR85trxscOZ6zHFeZ/OXmPK8ZnaX7n
f6Zn/llZnvM/zXy11s7/zO/8z/K5fg6a+WBr/q8lX5mf+WCnv5h8NP0nk3vN
/O3a9O5Tt7/si74xzvzppHkfuV2PH+1cj2/6vcPrPj/svrV749zvZ+vn/v5g
edy/F9PzfH3E6z6Rf6cens9n2PW2HDuf2mHf1wvs/Ghver+7at5fz7HfDSvs
++8FXr9bYb8bXVq/311sPz5gv3O01s+6/5Xl+x0Du65/ND3uPR742vx+J7D9
+Aa7Ln8K+W9DfMR+J7izf3gK7bvHfqeYrZ/+PJgfL9bH8Xi0f34X+g/ScXzP
sMc7x35X3GHXOwrsd9y96f1ujv2Ofo4dHxV2/nlhevctaMbfpfU5/8fu8zlo
xndrfnxlfcwvO+x856id/1me8z/zM78YsPtib2wf1+8Ju8/41vTMP0bLY1/4
nenZZz4ZZ9/8vWa9YjY9frB+7keLceYvj9i/s8j+E/N3EWfYv5PINd8ndti/
SyiC98Gl5u8Ozq0PVyF+YX3kr02PLzX31ya074D9u442+Cqk7ywPH0O8D/Hr
EB9Ce25Ce0+hP7f2l/nmaBzfac73pHl+3Fs+42O2fzxPHozzfr4YZ7w9Yvf5
Z/9Fep4/Z9j3+dz4k/S704zvArvPfI+9HkrT43PLxxV2X/hFSF+H9JfYfeON
+fFBO/83v/ugba/vf9h9xEfjvN/01ue+WssnPthf4jfWx/3lZPk8f2+DR/Oz
nnpn/7lfTdbP/e3e8t3HaJz74QN2n+CC3df3iN1nmP03cdd/sfswc+x8YYfd
h1pg99HusfuSS/O7/muc412ZH19g32dr0/v+pz3/mvF3sH241U/S75XtwR32
+8kRO577EL/G/h3FENLfhPjJ+l6r/g/ypHtL
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData["
1:eJxdmzmM5MYVQAk7mZCBggkU0IZhDARDoG0dbetYSrKklixb1Opq3dSuNGqd
S91tW7Lpu23ZQIcTMpyQkTEhwwk7nJDhhB1OaFh8rw3+Dbbx9h9VLLKq/v9V
+70bt66//Z0kSf7z3ST53+/4Z3ft25/8855/KL79O5MPAqcjJ/JtQX4Y+PbA
2ci7z+DvB/kPRi7lHwb50cipfEfgHwX9O4M8D/5/HJ7nJ4F/Gvp7V5DfHeT3
hPbuDf2ZBfnPAv888H0jd/q/P/h7IPTnwZEH9a+F/hVTbopg/9DIW+UPBfuH
gz3cK39k6q8JnPxiqt/AG+0fHblVDpfKH+P5PkUO93Dy+MidcrhUPh+5Uj4P
8id4vk+Qwz2cPDlyoxzOlP9y5EQ5vP0Y+VM8H9wETn5Ff5TDifJf83w1criG
k6dHLpTDqfKS57k1cgG3cAMPH43cK4eTZ0au4AJuP8Qe7j/AXjmcXKd/cAFn
cAMn2l+f+kueHbnRHh60hxP60wdOnpv6K54L9nBl+3D2PvbP0/672MPJEnt4
OMYezuDkBfTfxh7O3sJevom9+nDyIv2/gT1cvYm98gp7uHkD+8XIxWvYy69i
DzcvYQ/3L2L/Ev15AXv5eezlZ7GXn8H+Zfhp7OHmSeyVP469/Cj2r8APYy/f
j718D/Zyjv2rcIa9zJ9GZl/rZfah5DV+2TcKmXW5kVk3e3i/Dr7OL+tOIbuu
yMz7HnYeJm/AziPY77aB/c569fkOkgo73ksGO84F7DhV1fS5GvXpV6s/26mm
fodqqpe8iT6/Gb/Jjem/yxU88Ntoh7zVH9wHuXb9jalfee/H9rWz/aDXBD3t
YjvRj/bJzal+FrgIXAVuboZ+K/e5bk77Pdyc9id5a+o3gxt+C37bt9GDh+Og
t0QPTt6lffXhQX/voYff4n3ah1u4gAe4Uv4B7Wv/4bSfGdzbb3iAGzg5nnJ2
PPVXwD1cwdVH2MED3MLJLezgFvkQOHmHduEMHmz/nWn/qsCN+oxHCxdwH3hQ
n/FMeG8J8gyuHH/Y91P5nuEm2Ldwj7wP/oag73eS+f7hiu+j8Dvy3/ndvze/
K77fVr03p3auR36H+32Bdvb7rO26nvqdGifKru8yecr+u769H9uX7x55sL1H
Rk4cxydGdhya6yM77j376/69sF83vhf29/17IR7wPbTEE7739pj29++N9uX3
aN95RvxT+Z0YH8Ib4knnZUF82sPGu36nlfEx33FNvO283cDOw4x4vwrsPDA/
aWHzJedtAzuv0i9on3lXwc7DDVw4T7+kfTiHG7iAndc13MMd7DrRwK4TLZzd
mtoXt6btVXBm+7em/WtvTfvfK4cHuPD565FLOIUzxyNwDueOD7xjfMugXwWu
4cF8EO7hTZC3cAt3gXu4g7fB3xD87UJ/ko9HdrzSwBns+Obw/v3AJVzCvs8K
9n3XsN9LY3vwBq58n6G9Lvjrg79t4AH2e9mF50k+Gbn3+eH9fICdLzns+y7g
je8fth5Rqc/8rOHa+as9830DF3ALt6wXnf7hXv+sL1v9ud7AObyDzZeTT2kP
TuGK9S2DzXdzODHfhTPyyVJ910v9ky/WyllfG+3JHze2z3rcyu+M3Kl/PHKv
f/LHLdy73iuHd7Zv/vjZlFPY/DKT2U9yuCe/LJTDpf7Yj6rANdzAjfbwBs7c
z+AC7oK8tz/wNugPMvnuzvZfHzn5HHv20xRO4CxwLpMfF/LLI5dwAVf6J3+u
1YcbuFmMvJHJr1v12f87/ZFf9+oTL2xtn/x6UE5+vZOfGjn5Aib+SOFkPnKm
/LGRc9l8W/0HRi7le0eu5LtGruU7R25k8u+NfDByu+fxt5OpK/cydeDt3v/4
O8jWbWXqosmXPs/4m8LWHTOZumGuPnW8QiYfL2HrXJX25OO1+ubnyok/N8qp
s7T6Ix/vZPLxXn3y7y28j3fVJ9/e2Z559Yp+wilsPpnB5ql54AI2zy3hfb4M
m2/W2ltH0J56wkZ96hGtTDzeaW8dVqauvpX5fgb5vpF3cEM9KfkN/pkvKex8
y+RXRs5h148CHlhvStj1tIIr1udaZj1vtHf9tz32j9b24E659ViZ/WoLl+xn
A5y5/8Gd9ePf0h/20xS23p3BDftxrtz4XDn7eQl73lDBxgM17HlLY/vGf/DW
+E9/xn/qG9/aPrzVv/Fu0N8FTn43bS+FjZcz2Pgmh403C9j8ogxcBa7hwufX
P+O1gT3PaGHzoy5wD7fw1vbgwfbwvwvtJV+N7PtJv5o+XwYb7+Ww41PA5hOl
9sb/sPFlHbiBU+NfeIu8Df66YN/Dre8f3r9/eP/+4dr3//XI5jPp19PnywLn
sN9jAde+/8AV7Pddw453A3v+tYE972phz7s67eFee98/bDw9+HzwTv/m37/H
v/MfNr7O4IH1IocruIDN90u4Z/2p4AaulVs/sD14A7u+tfonvu7U9zxG/8TX
W/tLfD3YHvH0Tjnrb/IHnud45BTOWK8zeGA9z+ECLmTi4xI2Hq30Z/yrPvFo
oz7x5UY5+0sLN8i7IO+Vw1vl6A/Bfmd77GdJg5z97gBOnhs5VU78eChz/pKp
/+DIR/IdI+cy5+gz7T3vgD0Xm8vEP6X6xAcL/RE/VPKN8XcJW7eutafuu4Kt
czbKqQuuYet0G/1RNzvR3jqa7cOnQd4FPgv++mB/bn9ofxv6d6G9dU/HC74M
vAv+rrS3LvnHaX8OYOt6aeBD2LpmBluXPoKNH3P1iV9nMvFxoX/iuTlsPFfK
fE8L9ck/Kpn8ZynzfddwS366Us78bew/+fHa/iHfqI/8RH3kreMHnypnPei0
p/2zIO/tH/bn8EB7W/0fj3whs34N+md9u3T8iSd3+oevZNbH5E/0Bz6AeziF
E9bXQ/XhLPAR7Pl4Hnimf7hQzno+hz1/L5Wz/i8CV3ADL4O8Dv5WQd74fPA6
9Gfj88EnsPcV2qB/qj/jddvnec/Uh3vY8T6HfT9bnw++sH33t6B/aXvwLrR/
pb73J/6Mf/bbAzizHgbv4EPlxgcy8cURvDVfkIlXZrD12QI2fpzbnvGk/SM+
XOjP+mrgpf5WI9dwC69sH27gAV4H3tgf+CT4a+0ffArncAdb/z+Dre/26sPn
sPXnrXL4Qn/Wt5XDl7D3q3aw5yFX9t/4/y88L+/rADZ+TOGO930I798/7P2k
I5nvJYedLzPb874M3LCezWXWwxI2nlrA5uOV+tTDlsrLkWvlnLetlHMe18jc
01vL1Hs29p96zYly6i+tz0M8cur4EG902hNvnMGek/X641zmXDm83Y/n+Hvh
+/BcA/Zc4tL3B+/0R937yv5Yx/4r/YAPYOukKWzd8VB96mgZbF3rCLaOlMPW
ZWbaW3eBzfPnsHl0CZvHLmDzykr/8FJ78zDYvGple3ADm4et9W8eBZsnnvh8
5lGweeJp6E8HmzeeOb7mscH/eeBt4IvQ3uD4w5eh/7vQ3pX9N4//2/hrHeMA
tg6SwtZdDmHrLhlsXeNIe/znsHWDWeAi8By2TlEGXsDWJarQ3jL4q2HrEqvA
TfC/hq27bAKfwNaNWtg62yls3bOzPebHmcz86WXm27nPx3zcOr7M5wvH3/lv
/zhXvrQ/rC87/RHfX9k/71H8HSZ+P4C9l5Mqp957CO/va8HmZ0fac78ih723
OFPOelroj3xgrj/uwZbqc693IXPvupI5H1jKnC/U8rWRVzLnHY1M/Xdt++S/
G/vH+cyJz8P5TiuTX5/qj/y+0x4+C9xrT/5+rr35vPr4v5A5fxq0Zz+8tP/w
Tjn6V8rhZD1t/2A9bT+V6e+hzH6cwZ63HQXOYe+nzIK8gD0fnAd5GeQL2Hp7
pT751dL2yK9q7YknVrD5XBN4rT71n43+j0c+UR9uA58G7hwv4pszOIP7wOdB
fxvkF4EH3x/tXYb+7vTH81yF8Uj+gT/G6wA2X05h38ch3PM9ZLDfx5HM95Nr
z/c4gxvmT6Gc88659sRvpcx94IXMeWMlc593Kd82cr2Xj78rmfu4jf1hvVnb
H86bNsqN/7T3fM7xYL07VZ94sIO9r3mmnPpU73hzn+1cf6zHW/tj/Ud779PB
3ou6VE78uFPO/nEFe48j+Se/xn+w5/ApvI//ZOM/2HPOI9n4D/Ycbaa98Z/t
Gf/BxiOl9uzXC+3d/2HjvaX61Hlr2LrzSrl1UeXwGrbuuYGtW57A1hlb+wOf
wtbtOti63RlsHa6HrZOdw9bBto4HfAFbxxoCXwbeBb4KnHwzbe8gcPrNtH+H
gTPYOuBRsM+D/izoF7DjMYets5b6gxewdewKtm6/hD2HqGHj4ZX9Mf6DjefW
+uf73OgfPoE9d2/1D5/Czo/O54XPYO+p9MqN/2TjP5n5emF/mc8DvI//1Gc9
2MGuF1fKjf/+Rf+N/2DvXaew99IPYe8bZDLn9Ucy/88mh70/O5P5f2iFzP/b
m8v8KWXW94X+rf8qZ39YysRvtc9D/LaCjdcan5/9ba1/9sONzH554ngQL7T6
h0/34zVyF/yd2T//P0/gc/sDb0N7F8rZzwfbJx64tD3Pu3xe6oFX2lv/+zf+
rf/BufU/2Pu9h8qp92Rwb/0Htl6Uwyn1pBnseXWhPjy3P94ngL1fsFDf+wWw
56vLwLX68CrIm8Br2/c+QuATn8f7CYFPYe87dv+X/xdGOEtu
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  ImageSize->{620., Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.547522322107005*^9, 3.547522345886773*^9}, {
   3.5475236230715103`*^9, 3.547523633836286*^9}, 3.5475240547212133`*^9, 
   3.547524375317309*^9, {3.5475247665185223`*^9, 3.547524770655178*^9}, 
   3.547524876920239*^9, {3.547525023810678*^9, 3.547525027460581*^9}, 
   3.547561415965391*^9, 3.5475617950063066`*^9, 3.547562097093884*^9, {
   3.547562207530631*^9, 3.54756222378516*^9}, 3.547563104984174*^9, 
   3.547563293899765*^9, {3.5475668534623537`*^9, 3.5475668827250233`*^9}, 
   3.547567230307749*^9, 3.547567317285698*^9, 3.5475673483357773`*^9, 
   3.547567628602947*^9, 3.547567669482338*^9, {3.54756787959723*^9, 
   3.547567923976598*^9}, 3.547568929714109*^9, 3.547569496548752*^9, 
   3.54756983318547*^9, {3.547569911225762*^9, 3.547569914369865*^9}, 
   3.5475702360656967`*^9, 3.5475707072983093`*^9, {3.547570897417197*^9, 
   3.547570919489481*^9}, 3.547845464355069*^9, 3.5478454945559053`*^9, 
   3.547848383841202*^9, 3.547848420580596*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Mean", "[", "dz", "]"}], ",", 
   RowBox[{"StandardDeviation", "[", "dz", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.547567232694207*^9, 3.547567284535945*^9}, {
  3.547567350950903*^9, 3.547567352782578*^9}, {3.5475676351195507`*^9, 
  3.547567636958804*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1036.6752809917305`", ",", "9.362534175197961`"}], "}"}]], "Output",\

 CellChangeTimes->{{3.547567234982347*^9, 3.5475672850462227`*^9}, 
   3.547567320914466*^9, 3.547567354231935*^9, {3.547567386871602*^9, 
   3.5475673913983097`*^9}, 3.547567638814036*^9, 3.547567671747561*^9, 
   3.547567882492509*^9, 3.547568739610322*^9, 3.547568911968011*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Max", "[", "dz", "]"}], "+", 
    RowBox[{"Min", "[", "dz", "]"}]}], ")"}], "/", "2"}]], "Input",
 CellChangeTimes->{{3.547561908248618*^9, 3.547561940950178*^9}}],

Cell[BoxData["0.6000000000000227`"], "Output",
 CellChangeTimes->{{3.547561911555481*^9, 3.547561941506974*^9}, 
   3.547562093825687*^9, 3.54756222055422*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mean", "[", "dz", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.547563131597501*^9, 3.547563142666082*^9}}],

Cell[BoxData["1066.2573726541555`"], "Output",
 CellChangeTimes->{{3.547563133450747*^9, 3.547563143014965*^9}, 
   3.547563395924362*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Min", "[", "dz", "]"}]], "Input",
 CellChangeTimes->{{3.547562032116341*^9, 3.5475620330269213`*^9}, {
  3.5475621244728813`*^9, 3.547562139384659*^9}}],

Cell[BoxData[
 RowBox[{"-", "484.4`"}]], "Output",
 CellChangeTimes->{{3.547562139813319*^9, 3.547562218820292*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dz", "[", 
  RowBox[{"[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.547562082807845*^9, 3.547562186814765*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.547562156617432*^9, 3.547562201680286*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dz", "[", 
   RowBox[{"[", "10", "]"}], "]"}], "=", "0"}]], "Input",
 CellChangeTimes->{{3.5475621622408447`*^9, 3.547562216670741*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.547562165477495*^9, 3.5475622170754137`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"gcx", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Max", "[", "dx", "]"}], "+", 
     RowBox[{"Min", "[", "dx", "]"}]}], ")"}], "/", 
   "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"gcy", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Max", "[", "dy", "]"}], "+", 
     RowBox[{"Min", "[", "dy", "]"}]}], ")"}], "/", 
   "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"gcz", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Max", "[", "dz", "]"}], "+", 
     RowBox[{"Min", "[", "dz", "]"}]}], ")"}], "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.547848448781447*^9, 3.547848495905198*^9}}],

Cell[BoxData[
 RowBox[{"-", "88.5`"}]], "Output",
 CellChangeTimes->{{3.547848460222232*^9, 3.547848496282104*^9}}],

Cell[BoxData[
 RowBox[{"-", "85.`"}]], "Output",
 CellChangeTimes->{{3.547848460222232*^9, 3.547848496284946*^9}}],

Cell[BoxData["80.`"], "Output",
 CellChangeTimes->{{3.547848460222232*^9, 3.547848496287833*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547848470480546*^9, 3.547848471304448*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"dz", "[", 
    RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"i", ",", " ", 
     RowBox[{"2588", "-", "10"}], ",", " ", 
     RowBox[{"2588", "+", "10"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.547562019154593*^9, 3.547562068435232*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "393.4`"}], ",", 
   RowBox[{"-", "340.4`"}], ",", 
   RowBox[{"-", "340.4`"}], ",", 
   RowBox[{"-", "340.4`"}], ",", 
   RowBox[{"-", "345.4`"}], ",", 
   RowBox[{"-", "345.4`"}], ",", 
   RowBox[{"-", "567.4`"}], ",", 
   RowBox[{"-", "311.4`"}], ",", 
   RowBox[{"-", "311.4`"}], ",", 
   RowBox[{"-", "245.4`"}], ",", 
   RowBox[{"-", "245.4`"}], ",", 
   RowBox[{"-", "245.4`"}], ",", 
   RowBox[{"-", "188.4`"}], ",", 
   RowBox[{"-", "188.4`"}], ",", 
   RowBox[{"-", "129.4`"}], ",", 
   RowBox[{"-", "129.4`"}], ",", 
   RowBox[{"-", "129.4`"}], ",", 
   RowBox[{"-", "81.4`"}], ",", 
   RowBox[{"-", "81.4`"}], ",", 
   RowBox[{"-", "81.4`"}], ",", "24.6`"}], "}"}]], "Output",
 CellChangeTimes->{{3.547562021749836*^9, 3.547562068870697*^9}}]
}, Open  ]],

Cell[BoxData["Max"], "Input",
 CellChangeTimes->{{3.547561962094634*^9, 3.54756196328489*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{
    "cx_", ",", "cy_", ",", "cz_", ",", "sx_", ",", "sy_", ",", "sz_"}], 
    "]"}], "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dx", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "-", "cx"}], ")"}], "/", "sx"}],
           ")"}], "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dy", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "-", "cy"}], ")"}], "/", "sy"}],
           ")"}], "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dz", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "-", "cz"}], ")"}], "/", "sz"}],
           ")"}], "^", "2"}], "-", "1"}], ")"}], "^", "2"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "1", ",", " ", 
       RowBox[{"Length", "[", "dx", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.547522266147091*^9, 3.547522288559752*^9}, {
  3.5475223699923887`*^9, 3.547522456016944*^9}}],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.547522439656204*^9, 3.5475224446429567`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"cx", ",", " ", 
     RowBox[{"-", "134"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"cy", ",", 
     RowBox[{"-", "154"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"cz", ",", "62"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"sx", ",", "503"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"sy", ",", "488"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"sz", ",", "478"}], "}"}]}], "}"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"parmin", "=", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"cx", ",", "cy", ",", "cz", ",", "sx", ",", "sy", ",", "sz"}], 
       "]"}], ",", 
      RowBox[{
       RowBox[{"gcx", "-", "100"}], "\[LessEqual]", "cx", "\[LessEqual]", 
       RowBox[{"gcx", "+", "100"}]}], ",", 
      RowBox[{
       RowBox[{"gcy", "-", "100"}], "\[LessEqual]", "cy", "\[LessEqual]", 
       RowBox[{"gcy", "+", "100"}]}], ",", 
      RowBox[{
       RowBox[{"gcz", "-", "100"}], "\[LessEqual]", "cz", "\[LessEqual]", 
       RowBox[{"gcz", "+", "100"}]}], ",", 
      RowBox[{"440", "\[LessEqual]", "sx", "<", "1200"}], ",", 
      RowBox[{"445", "\[LessEqual]", "sy", "\[LessEqual]", "1200"}], ",", 
      RowBox[{"470", "\[LessEqual]", "sz", "\[LessEqual]", "1200"}]}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"cx", ",", "cy", ",", "cz", ",", "sx", ",", "sy", ",", "sz"}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.547522610034163*^9, 3.5475226681091433`*^9}, {
  3.5475228218358517`*^9, 3.547522822522554*^9}, {3.54752299449459*^9, 
  3.5475230247188053`*^9}, {3.547523069873201*^9, 3.54752333757185*^9}, {
  3.547523390367139*^9, 3.547523423151958*^9}, {3.547524086138195*^9, 
  3.547524218614045*^9}, {3.54752440849645*^9, 3.5475244342291403`*^9}, {
  3.5475244667360992`*^9, 3.547524627579026*^9}, {3.547524667650845*^9, 
  3.5475246747058353`*^9}, {3.547524729872918*^9, 3.5475247308084087`*^9}, {
  3.547524796790968*^9, 3.5475248242700453`*^9}, {3.54756146149616*^9, 
  3.5475614768725777`*^9}, {3.547848512221175*^9, 3.547848533059704*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.9185081133841773`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"cx", "\[Rule]", 
      RowBox[{"-", "111.73158621677413`"}]}], ",", 
     RowBox[{"cy", "\[Rule]", 
      RowBox[{"-", "99.94639262563281`"}]}], ",", 
     RowBox[{"cz", "\[Rule]", "95.57816763747353`"}], ",", 
     RowBox[{"sx", "\[Rule]", "527.8539240252267`"}], ",", 
     RowBox[{"sy", "\[Rule]", "537.0743743561021`"}], ",", 
     RowBox[{"sz", "\[Rule]", "506.06218384871005`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5475230168410673`*^9, 3.547523025498171*^9}, 
   3.547523080287326*^9, {3.547523117288344*^9, 3.547523125524722*^9}, 
   3.547523156315193*^9, 3.547523195247102*^9, {3.5475232276902657`*^9, 
   3.547523243799637*^9}, {3.547523277334203*^9, 3.547523338042967*^9}, {
   3.547523393505784*^9, 3.547523429682234*^9}, 3.547523648201597*^9, {
   3.5475240694881887`*^9, 3.547524096912546*^9}, {3.547524136190811*^9, 
   3.5475242242208*^9}, 3.5475243844931107`*^9, {3.5475244288368063`*^9, 
   3.547524440147459*^9}, 3.547524474089155*^9, {3.547524511990356*^9, 
   3.5475246335317917`*^9}, 3.547524684188307*^9, 3.547524736405457*^9, 
   3.5475247834587603`*^9, 3.5475248325349903`*^9, 3.547524889481243*^9, 
   3.5475250393628597`*^9, 3.547561431020835*^9, 3.547561478103834*^9, 
   3.54756180928971*^9, 3.5475689614826307`*^9, 3.547569527797081*^9, 
   3.547569868680819*^9, 3.547569898997262*^9, 3.547570285925644*^9, 
   3.547570952231761*^9, 3.547845594713334*^9, 3.547848541784436*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"parmin", "=", 
  RowBox[{"NMinimize", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "sx", ",", "sy", ",", "sz"}], 
       "]"}], ",", 
      RowBox[{"900", "\[LessEqual]", "sx", "<", "1200"}], ",", 
      RowBox[{"900", "\[LessEqual]", "sy", "\[LessEqual]", "1200"}], ",", 
      RowBox[{"900", "\[LessEqual]", "sz", "\[LessEqual]", "1200"}]}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"cx", ",", "cy", ",", "cz", ",", "sx", ",", "sy", ",", "sz"}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.547563314049348*^9, 3.547563330943409*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12.859755130499561`", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"cx", "\[Rule]", "0.9204373477535238`"}], ",", 
     RowBox[{"cy", "\[Rule]", "1.4458647446510882`"}], ",", 
     RowBox[{"cz", "\[Rule]", 
      RowBox[{"-", "0.6953611008964315`"}]}], ",", 
     RowBox[{"sx", "\[Rule]", "1006.8508467518562`"}], ",", 
     RowBox[{"sy", "\[Rule]", "1140.442187032425`"}], ",", 
     RowBox[{"sz", "\[Rule]", "1062.779428361678`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.5475633424478903`*^9, {3.547563412333167*^9, 3.5475634196181707`*^9}, 
   3.547563498578929*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amax", "=", 
   RowBox[{"{", 
    RowBox[{"997.71", ",", " ", "1111.76", ",", " ", "1066.96"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"amin", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1056.47"}], ",", " ", 
     RowBox[{"-", "987.01"}], ",", " ", 
     RowBox[{"-", "1000.91"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547567934913208*^9, 3.547567986692977*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"amax", "+", "amin"}], ")"}], "/", "2"}]], "Input",
 CellChangeTimes->{{3.547568244032493*^9, 3.54756824544376*^9}, {
  3.5475683908663397`*^9, 3.547568395937852*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "29.379999999999995`"}], ",", "62.375`", ",", 
    "33.025000000000034`"}], "}"}], "+", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "1.940642843348668`"}], ",", "1.9846430427872839`", ",", 
    "1.224905879869157`"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.547570992939147*^9, 3.5475709933006687`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "31.320642843348665`"}], ",", "64.35964304278728`", ",", 
   "34.24990587986919`"}], "}"}]], "Output",
 CellChangeTimes->{3.54757099415657*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FactorTerms", "[", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"XX", "+", "142.7"}], ")"}], "/", "508.4"}], "+", 
       "1.77426"}], ")"}], "/", "1028.58"}], "]"}], ",", "XX"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.547570981134831*^9, 3.547570991479546*^9}, {
  3.547845688845806*^9, 3.54784575431523*^9}, {3.547845893897007*^9, 
  3.547845917719611*^9}}],

Cell[BoxData[
 RowBox[{"0.0019978460599986304`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.9123015744254234`*^-6", " ", "XX"}]}]], "Output",
 CellChangeTimes->{
  3.547845754825893*^9, 3.547845814669153*^9, {3.5478458987650547`*^9, 
   3.5478459181577177`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FactorTerms", "[", 
  RowBox[{"%", ",", " ", "XX"}], "]"}]], "Input",
 CellChangeTimes->{{3.5478458158001738`*^9, 3.5478458180967417`*^9}, {
  3.547845857066471*^9, 3.5478458797994413`*^9}}],

Cell[BoxData[
 RowBox[{"0.0019978460599986304`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.9123015744254234`*^-6", " ", "XX"}]}]], "Output",
 CellChangeTimes->{
  3.547845818536681*^9, {3.547845862316473*^9, 3.547845880025731*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.547845757155293*^9, 3.547845758682247*^9}}],

Cell[BoxData[
 RowBox[{"0.0019978460599986304`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.9123015744254234`*^-6", " ", "XX"}]}]], "Output",
 CellChangeTimes->{3.5478457597817497`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Factor", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.547845765487578*^9, 3.547845768563056*^9}}],

Cell[BoxData[
 RowBox[{"0.0019978460599986304`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.9123015744254234`*^-6", " ", "XX"}]}]], "Input",
 CellChangeTimes->{{3.5478457968863697`*^9, 3.547845798769547*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"0.0019978460599986304`", "\[VeryThinSpace]", "/", 
  "1.9123015744254234`*^-6"}]], "Input",
 CellChangeTimes->{{3.547845968248794*^9, 3.547845968935273*^9}, {
  3.547846017437789*^9, 3.547846017774281*^9}}],

Cell[BoxData["1044.733784`"], "Output",
 CellChangeTimes->{3.547845969540374*^9, 3.547846018418663*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"parmin", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"cx", "\[Rule]", 
       RowBox[{"-", "31"}]}], ",", 
      RowBox[{"cy", "\[Rule]", "50"}], ",", 
      RowBox[{"cz", "\[Rule]", "31"}], ",", 
      RowBox[{"sx", "\[Rule]", "1035.5098614556425`"}], ",", 
      RowBox[{"sy", "\[Rule]", "1069.6868070846024`"}], ",", 
      RowBox[{"sz", "\[Rule]", "1042.3905223165932`"}]}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.547569108433145*^9, 3.5475691725757227`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"cx", "\[Rule]", 
      RowBox[{"-", "31"}]}], ",", 
     RowBox[{"cy", "\[Rule]", "50"}], ",", 
     RowBox[{"cz", "\[Rule]", "31"}], ",", 
     RowBox[{"sx", "\[Rule]", "1035.5098614556425`"}], ",", 
     RowBox[{"sy", "\[Rule]", "1069.6868070846024`"}], ",", 
     RowBox[{"sz", "\[Rule]", "1042.3905223165932`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.547569172925289*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dd", "=", 
   RowBox[{"d", "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"amax", "+", "amin"}], ")"}], "/", "2"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5475680178301*^9, 3.5475680323561907`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Thread", "::", "tdlen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Objects of unequal length in \
\[NoBreak]\\!\\(\\(\\({\\(\\({\\(\\(-2\\)\\), 18, 1059}\\)\\), \\(\\({6, 11, \
1064}\\)\\), \\(\\({0, 13, 1084}\\)\\), \\(\\({\\(\\(-8\\)\\), 10, \
1070}\\)\\), \\(\\({\\(\\(-4\\)\\), 4, 1081}\\)\\), \\(\\({3, 10, \
1063}\\)\\), \\(\\({\\(\\(-2\\)\\), 18, 1059}\\)\\), \\(\\({6, 11, \
1064}\\)\\), \\(\\({0, 13, 1084}\\)\\), \\(\\({\\(\\(-8\\)\\), 10, \
1070}\\)\\), \\(\\({\\(\\(-4\\)\\), 4, 1081}\\)\\), \\(\\({3, 10, \
1063}\\)\\), \\(\\({\\(\\(-2\\)\\), 18, 1059}\\)\\), \\(\\(\[LeftSkeleton] 26 \
\[RightSkeleton]\\)\\), \\(\\({\\(\\(-5\\)\\), 27, 1070}\\)\\), \\(\\({10, \
29, 1057}\\)\\), \\(\\({\\(\\(-14\\)\\), 13, 1071}\\)\\), \\(\\({5, 22, 1080}\
\\)\\), \\(\\({11, 7, 1069}\\)\\), \\(\\({\\(\\(-4\\)\\), 15, 1060}\\)\\), \
\\(\\({\\(\\(-2\\)\\), 13, 1056}\\)\\), \\(\\({2, 20, 1065}\\)\\), \\(\\({8, \
18, 1059}\\)\\), \\(\\({4, 20, 1065}\\)\\), \\(\\({2, 12, 1059}\\)\\), \\(\\(\
\[LeftSkeleton] 4393 \[RightSkeleton]\\)\\)}\\)\\) + \
\\(\\({\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\)\\)\[NoBreak] cannot be \
combined. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Thread/tdlen\\\", ButtonNote -> \
\\\"Thread::tdlen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.547568032731943*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dxx", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"dx", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"amax", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"amin", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "2"}]}], ")"}], "/", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"amax", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"amin", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "*", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dyy", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"dy", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"amax", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"amin", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", "2"}]}], ")"}], "/", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"amax", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "-", 
       RowBox[{"amin", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "*", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzz", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"dz", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"amax", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"amin", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", "2"}]}], ")"}], "/", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"amax", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "-", 
       RowBox[{"amin", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], "*", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dd", "=", 
   RowBox[{
    RowBox[{"dxx", "^", "2"}], "+", 
    RowBox[{"dyy", "^", "2"}], "+", 
    RowBox[{"dzz", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", "dd4", "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.547522792486046*^9, 3.547522881505765*^9}, {
  3.5475229157455893`*^9, 3.547522917744986*^9}, {3.547523090691081*^9, 
  3.547523091004726*^9}, {3.5475633554872713`*^9, 3.547563357447852*^9}, {
  3.5475679928645477`*^9, 3.5475680094007587`*^9}, {3.547568060215307*^9, 
  3.547568129268701*^9}, {3.547568327947053*^9, 3.547568358553397*^9}, {
  3.547569045379253*^9, 3.5475690731652184`*^9}, {3.5475691821620417`*^9, 
  3.547569197198513*^9}, {3.547569558272084*^9, 3.547569568042596*^9}, {
  3.547570331267935*^9, 3.547570338990306*^9}, {3.547845617510096*^9, 
  3.547845631603343*^9}, {3.5478485535409117`*^9, 3.5478485571845922`*^9}, {
  3.5478488083958263`*^9, 3.5478488113097153`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxde3lYzdsXdzIlU+iSIY4MZUpCZapPxiKkokQaaE6d5rnOOQ1njIylQpln
mYf7Q7iUOUNkDjcSKjJkiLf3ec+n53nv/ec+yz5rr+/aa6/PXlP9vUIcvDU1
NDSOt9TQ+L///3//1Vk9+NOgu9qmzkr9D3C6GHJrxkjSWli8sJer8RjSOqhv
1ffXNgFp3f+s6/2H7oPPv0fW1AwgLUBbE/37Fl1IG2BK5eaOHnNID8RiiesO
N3/Sg9FzbfX8HFPSRphb8/e1+l6kh2Lh6vE1WUNID8eyy8Weq6eSNkafI37W
fj1Jm6CDh+bLymWkR0Fne7cTvYeTNkVk6L7TYj3So3G154+eB3/XqukxyG5Y
rQjR5/pYLBh+0+h2a9JmWJt94d8Lo0ibw+N2fc6VEaQtMDUqQDCrmR4H//hR
ihpD0uMR5jR+xSwL0hPwrEbz75wSyp+Ix++VufMmcn3Sf+xhiT4XrIOGveLv
rf7z/fj/aRH+o681JtbPObnqGtet0WDew6VVPfkno22Ov5fnX+rfiybjeGN/
k5B/uD4FnROksYpuXJ+Clkkbqh5O4f5TcU/z4bcBvA+iqVhQ9zBcvy/Xp+Gf
jXU2jgu4Pg3DE24vMGw+r+m4v7yXWXZbrk9HlxcHfCKa+WfgdgvTIytncH0G
XLYonI/oct0Gz3fahieC6zZw0I2MMAziui2KFjVoPOV9FNni6eSArRdCuD4T
yXsrBiKd6zMhOpDw4beQ67Pgq/A/33MV12eh+rgg5cUOrtuh+oXxjz8BXLfD
yi4/09L2cn02tP3rHBsLuD4bXTuvdJFLuD4Hq44fErSP5focfPvzpsFdzPW5
uN36zNhe+7g+F9t9tj07u4nr9lDezOxoslFNwx67fj3smbGVv7eH/RDxNfcE
NV1kj7e14abxu8g/DxWf54Uv5/6YB/mIv2zTCsk/Dxa2hR3OJJN/HiqfFagm
cn8NB1yo+arbuVm+A36ZG1rfUZHfAa97DBDtziC/A+pOT6mvOkd+R3y5U6Mz
N5P8jnjsc6L9qBPkd8Sm0TNOZx4mvyP265yOFR8gvxN+fHwZfHED+Z3gdzXD
2+EO+Z3wqpXrKYOT5HfC1C0j3Mp3k38+1hpcUOlcIv98aB70LAiWkX8+nug3
VG6LIP98YG/63q+kNRbg95gyzZC15F+AfL2dMm2et2gBiiSZp8cuJP8CPGsz
sGP9OvI7o+9wk4l9eR/gjMqWHz/XN8t3huqgl1ssz7fIGVWtxhfMjie/Cz5B
U3bNg/wu8LmrL68JJ78L/NeEFHgsIb8L9Cf/89aW91VjIR6MLfJzXET+hTia
FZwaxfMULUTnwT9eGEWTfyGe3J0/RJZNfle8b2N89x3tDVf8/K0/1Jnvj8gV
xybcN2ywJ78rwvd6f45yIP8i5KxzPH6iH/kXYVaHwIdJfuRfhHaLY1yuTyL/
IjwPKMs/0Yn8i9Hf1uZpZ+IPFqNX67+Ovif+ihZjyoJrLye3If9iLAy22vLl
D/HNDdlj5/zbuhX53fB6qolqwBXipRuigy5bacrVdJEb7k/sM8rgNfmX4NC8
3eJPCjWNJdh6IjL8Gd8P0RIE2n4T/OT7WLQEa1r+nGeWT353bPy7pP2EzeR3
h2fklsG/lJTvjkPLavrcK6V8d0j0nuW2dyS/B3ScnoeszVLTAg/MaBjU8Y4v
9/PA7d/5GyqmqmkPD8xJKVUOmMH9PRCUtNG1z1w1ne+BmtZh0/+nojwPfP3r
at2ExzX/j67wwNMngxPrl1C+J7L2vXoRMILyPYH8fjGmfSnfE/athbGfxlG+
J8YNNTfYpEv5nmjUrCp4OpzyPVFYbFDv0qiWV+SJ8L+En03PqNcrPPHosW+k
XWfK90L1/Af33M0p3wtIc+ls3I7yvdA5op/GZT/K98IpSat1Pcwo3wuGE5Vn
fy+ifC+Efms95bIV9ffCxJz13p5CyvdCYsbH+/IhlL8UTnVlbftyP8FS9Kqu
vdmrXP39WApRm8TGrENq2mMplvgeedXClvKXwry34YfjppS/FEpFY1JJf8pf
inuB9RfXnuX5L0XR8We5V2hfjWWw3aeLKz/U64JlGC9w2mfxk/KXIay4Tdbx
c5S/DA+P19c0bFfTomVYue7rlNdJajq/ib/t4pzqmzz/ZahUnss0cKH8Zehj
p3cmT6KmNbxxtOSD58QjlO+Nn412+nUGlO+NsoGaKTdtKN8bs6Sba1NmU743
DCyLam+nUb43jr+86WkzmPK9ITFzmznQmPK9cf22p62hHuX7oMZ9zebgXx/U
8n2w0Xb9gErywweCrEmLHoymfB/I1+f8M+6F+vciH6xp9bi//Sc1ne+D7fo7
G3+SLvLBkmrxnvt/q+kKH8zx/d5/SYma1vBF8Hmr8aNPUL4vuuaNyp/UqKbh
C9NJ95I121K+LzL7niw09qf+vmjtf/7eYkvq74uF8a+nrZpD/Zv2u7ptc9k0
6u+L2qg/fdJOUH8/HHWxWmYUy/P3w3pRfceGw9TfD8p/u72W034efsjrFN1e
eozy/SD/e5fSaT3l+yHk6cEejzZQvh9GjN9ZrBVF+X7YebOX5tirlO8PzG6t
m/WS8v3RWv76T9G/lO+Py3+v7/C2hPL9YZ45VOo2h/ffH3mGC+M68L7m+2Pc
3Iw991vy/vsj9WGxZCvxq8Ifz3MWjX57gvc/AEsyE52DbtH/AuCY4HNJSnxH
AKwK69e0+0j/D4CmfnRBy8HE5wCUffudZMf8KD8Alh5+ZqOtiNdN/B8fTV8f
qaYrAtAmT9XJzJLvTyC2GFUp1jipaUEgWuwv/2f2Mb4ngbhTdvFUNeMbj0Bo
u4XbdLlK+YGQ5CR9nldC+YFYsPpRz1vHKT8QCf0Nd446RfmBmNffwMzgK+UH
Yf1yZT+9K5QfhOm/fz+tPkj5QbDOPbh9GOMbjyBg8acMg/uUH4RdPw9fND5L
+UH4XNTZMJbxWVEQFkf5uwxjPFYRhE+pg3wWMV7UWA7FxbACpxWUvxxRufNa
tMyn/OUY/qxDthfjRY/leHzPoJPKkfKXw1TPzk0STPnL8ZfxjYpujEeKmvZr
6KfblvlGxXJYt4y83IX5gEYwTDdueKPpRvnBGL3kf+FbGR8gGEcrx+zz7EH5
wfjTwdDnRFfKD4aqS0qd4wHibzB8ugR9O7Gb9y8YgzLHW+y5x/sXjP9VOiYU
LuP9C8GtH1Y+mQd5/0KQ+yWv26tk3r8QmO2dMOVCAO9fCCaeU701DuX9D0FX
lYnlzkLKD4HAc55k8nXKD0Hmcrv5BnaUHwLjmlzTiVWUL4S/eaBxMuMNHSFW
l4WVhzFeEAih1Stwd2WxmjYRosK10zoZ8z8Icfeyw7TRG9S0vRAD7j6/2u4Z
v/c/tFCIcWsLThyhviIhOk9LMzOUqOlMIUJrVw2pf0h9hFBJJ8WEMj4qFGJs
v8xZLtnUTwgLg58fHr1T06VCuNzseyaPdIUQNvI5AV8b1HSdEJ+crG4IWtD+
ocjbOiXgAu+DTii6fL7UepYZ70MojkT7n+jM/M8kFP3CZrS+yPgboYgb9OSc
OeNh+1Bct0/My+e6Ryj+8rltNWelmhaG4s6KQRfsbHl/QrFBa9ucUUfUdGYo
Bl6Y2ncv4+/8UIzatcLxLfONwlD0D+mxJ6w5HwmF6+i7bgriQ2koAkVfwmL3
8L6HwnHApB6qLWq6LhTXLu/Brv3UPwweI7/3d2f8rROGubXBGXnMfwVhULkE
dv6+nPqHoc0sie0Lxu8IQ3mRW3oB/c0+DIs3F1xsy3qKRxgO5M1c6sX8QxgG
0+6CdZeIh6IwaL/NDtc3p/5haPxesOBQCvUPQ1UHzZRA5kuFYejfv3yOlS/1
D4PXsnrZnsXUPwxBFgnSBtqvIgyWZV+//DOO+oehsNWnSTqUpxGOD/JcWfux
1D8cw7YOrAzsTf3DkT3wwKhVJtQ/HA8mZRVacT+EQ7NXgN59rtuHwzHeP3sl
6z0e4Rj9uN28ONaHhOGI7nd/9inWo0ThGLR7zO+blJ8ZjkNeOq2mMF/JD8fW
ZS02L+b3FoZjvHPHE+d+8f6H47hvJ82NA6l/OAYoNF6OYr2oIhztjVyGFv/k
/Q+Hhs3FdRt0qH8EZgX81szXov4R+HlXP3wl+QURUGYozrxgPckkAl5js3r8
GE39IzDN7JosSJP6R2BI3+r6EOZLHhFYfSLdtJb+JozAgOumD/eTXxSBGe6b
s9/V0f+b9hf26NqP55cfgavLLLM7Ur/CCNx/WKU5k/sVRSBAMj9yM+tBpRFw
0u6Tt8+Y+kcgceboxEaeX10ENgcYXFQ153+RqB3oPkE1nvpH4uz3YRtSWa8S
ROKJ+KbSg+smkXC90s6ltDnfi8T0KzMXd2y2fyS+29oV3/9G/IvEqpDzkw99
J/5FYm1tlwP6BtQ/EtcXfi39dpP6R8LFFb83EX/zIzHDcs4fe55PYSRGukXd
G8L6ZVEkBLlpUTPLiH+RsApaeuFDLfEvEn9flyzccYz2j4TWthXLo78S/6NQ
surQki3ES50oVF+x92o+H0EUNvXelpJ2lPgfheKgxnzz+8T/KOTuRcpZfp99
FIKDCypt+R54RGFD8MpVf6+m/lGoKH45xHE78T8K3u6BEx5nUP8ovLu4rt+H
5nwyCl87tT1VWUn9o3DE4YHd1ZO8/1HImbFhf/R06h+FPmsficrjqH8UXu40
b/VoDfVv+r4zhsr8KdQ/Gtrurt28P6njR51o7MsMSVeM5PsXjQ6vyww6DqD+
0Xi3w7t+0AfGp010e4HA0YH6R6Pfkz9n/MKofzRufpBM7GVJ/aOxor48wXYs
9Y+GdaNzoAvztcxo7Kw4eOdIAePZaFR1Dfz5PEVNF0bj9YmG71qDqX80MiNt
515m/F8aDeMTY2d5hzPejobRFPMxhifVdF004lZVOtu+Zv4Rgwce1f9GCql/
DOIG/FXizf0EMRg2Ls4rMltNm8Sg1/XFL7WYfyEGjTvnaOzbpKbtYxBbESAO
YD7hEYMWI+7sWJWjpoUx6Jj3dYbBF+YPMXDb5FpZK1XTmTE47Z+b1LCP+sdg
gecD3VWR1D8G/1ZtdV1zhflFDBLftPbQqab+MTBbHThq8XnqH4MB8hODMp1p
/xjcK7hiNpbxmkYsLm/J33iI+btOLGIcr9x/xXqNIBbpPTcWLPtB+8ci4FfO
rj3neP9jcbVaOuQ48dM+FhO8u3053Z34F4vKxnnSk+xPCGPxws7o/Yzmenks
HjwYNz6e8UdmLI5/2L1Ik/FBfiyW6r5KHNqR+BeL2Y6DD+5hvFEUi+IV1rNX
sb9SGgtX8QH7eL6HFbEYFXA3Mp31vbpY7B403L7rPOJfHDRWPM7e5E78i8Py
t91vX5hG/49DxRu7C9p8D0ziYFOzXfDek/gXh4dJc4XPQql/HF6PG/suwZn6
xyHngrZJO2/qH4cdE8M/fmM9URQHy5qgG8e4nhmHbFldtXQ19Y+Dt76v8/Tp
1D8Ov6YffNHA+ntRHAZEzO6Zy/5QaRzeB00b1or10oo4OHy/UBfM76uLg0ll
l04TmuvP8RiiE1olYnyhE487F0xV7lwXxMP54rhbHjxPk3goe4VfcGc9G/F4
u3e9Zof51D8e1wP04gfyvD3iscLOvDrcjvrHY+NVr4IAfr8oHgtGtUQS67eZ
8fifMvJVz/XUPx5PD2/QErIeXBiPVp53ngSzf1AUD0tPn3Iz5m+l8bgdrBjc
hvFZRTxepRRf8j9N/eNhOlS78+bm/kMC+o3cPWc768E6Cfj2o/2rt+w3CBJg
ErNl7OZE6p+Am1md5UHMv5CArdZ769Y2v38JEN9dPeo27eGRgNofS3brsl8n
TEDs7to+x/g+ixKgLQ4y1OL9zUzAvLHrO/+8Q/xPgPSjJHwq8bQwAdVCxUnb
KOJfAs52v7VxBuuHpQkILvl3nd5W+n8C0oct+d3mOPEvASvtWvp//cz6QyIa
2hjt28T6hU4inI7FJVjMIv4lQl5+qN5wFfEvEeZOdsod24h/iTjlcOzS0Vdq
PLVPhMHTFqu26xP/EqFjGe3wcAvxLxGOjekOg1mPESVi9dhLez4MJP41rW+p
OiTxJf4l4otT6tfqzsS/ROQXvpJIJhD/EuFfElP4rivxLxF+TvOMUhOpfyL+
6P3VPYN4XpcIG6eXKVlDqX8SVpZ2vvR+EPVPQtdNyvs/xlL/JLjvdHCYlkn9
kxB2u7HvAfIjCUYf7oa0iCH+J+H3I8Gczc34nwTBK8UpKc9XmATjSwMXei6k
/kn4NrjoVUA09U+CLC49w4rnlZ8EkyEdO3U+Rf2TYDFTIDrxlvon4ePYg8Nc
31H/JBzus9Gy5jr1T8KCoT/06voR/5PgsLTN+UnpxP9kRBVV199aTvxPRvA1
q+1Wi4n/yVA6HSntwfjJJBmvb803LmZ9G8l4uvHSFS3m4/bJmKmpE13L+MQj
GX8WHDXufZvvfzKq4wM79j3C9z8Ziz+enFibw/c/GccMWw+fcJn3Pxn7r/9K
npfK+/+f9aJkxM0asyHoEe9/Ml72O72mP/sLFcl4Nu7S1AOfqH8yVnXY9r+D
zfUnEQKX6JUJmE9oiTDp2qId4y/xPEQQpywZMoj1cz0R3nw5/FPO+FcgwudR
PZ49i1evG4kQOSlGUlHB8xJhsaJizyzW2yxEeDS22wirQzw/EQ6OqtlrzfjT
RgRp1dZDXdiPsRfhwptFZ/d1UNMuInwrEG/Q5LqHCE+6RR4QMV71E0Hyq9zs
E/vBQhHu3/m9RLBWvX+MCK6xITe+feb5N31/UY/fa/l+y0Tw+2zwc+Rx2kOE
HWUjFyUxns8Woe3NmYnpGsRnESrs1zx891S9vksEX9ve3z+D9hLh7inDMJs8
NX1ShMOnhYotK2g/ESrvP5ZHFKnva4kIbY65KcOf8T6LMG71tfjUe2q6vOl8
1ht2ESp5v0Wo37jqyqZ8NV0lQu3TdgIvxmN1IpwOWXfxSqGabhChVa6Jy8I7
9H8xRkzSPmVF+VpiOBpHFB7sQPuLYdzpycOXjJ/1xOhipLGhzUb6hxjTx247
sa6A9hdDs/HJrA3sZ5iIYfdoRnT3ebS/GHWfrYfIMml/MXIvm8RnsT9iI8Ym
P+eiFbwv9mI81nT7UMX6kIsYwdKu7auH0b/E+Pk9Z+/1WWraT4wTu52f/2B/
RChGwppWkgx+f4wYskkP751lfiUSY/DS5I0X2W+UiTFGeN2ygPlsphglZq9D
Pmir6WwxnjwXfVvN/CVfjO5ZHXtvYXy3SwzpkwoXXeJHoRgtgm6sxRvaX4z6
EBt3i+e0vxgCB7uCGMaTJWIs/3jGvgPrW6VinHw28Op4LzVdLsbmL5fLX6+k
f4uxL116qLi9mq4S4+uNNwaPgunvYrw/Y1A2gP23BjHKy9BqCuNvDQnsWmU7
rH9K+0vw6c/Vzk+/8T2Q4PL3o6fa8v3Uk2Dm3kjdj+xfCZr4B3ScX8H9jSRw
7Xhv4hcR3wsJjl8vPr2F+G4hQebk5dYxO/l+SLDE5P2fPswnbCRIDHJpVcJ4
316CZ49K2tT6qWmXJvmGI38cYL7iIYH1WL3Y2+x3+EnQ9eRmu4uufG8kWOX8
8oMb+zcxEtS5izFkOd8fCWZt9VuTbaGmZRLsKfhp/6kH3yMJ9A/aJjg9Ub/v
2RLkba4dNKYv3ycJVGf77HLorqZ3SSB7P7hdYm++VxJM3m07fzff15MSmLl3
XV08gu+XBGM2CkMP+dD/JRg4KOFU8Uz6vwSPdRxW6LN/Vy5BQzfzAXO96f8S
RLV7v/xLMf1fgns/d+/+nUX/l6DxknLSsN20vwR9b/STdmrL9y8FRQ+NX7xu
TfxPgcPaVbpW+vT/FIwMDjqQwXhHLwWOZ/PaX1vL+CAFJd9jciJ/0/4p6PDz
34XrNtL+KcgcorUpZAXtn4JkWXmJ9BHtn4KB+qbaG0/T/inIsFneadUb2j8F
m88vMKlhf9clBZYf284e70n/b9p/b629RyDtn4LYN9/HPrlL+6cg9fiGtD7s
98akwM9kxa4xxFdRChoKsv8W8PtlTecR+fveN/aPMlPwyfzzktzxxP8UWHys
+OZpQP9PwYgk04IbxJ9dKTjjlDlg5kD6fwqKn5u9uM3+7ckURIza8mfHOto/
BTEtDOe8Zv2hJAVb1ug6WLP/VpqC0Y3aLaPpn+VN/FKD9PfM/ytSsMHfvMVP
xkNVKcgOOz2onP5d13S+3cOvh7Cf3pCCFWO6P8vQpP1TEXDjXV8Fz18rFSPq
NAf3Y/9bJxULjn7Tt2A/Vy8Vs6OerHtWQfunom98zqfu7NcZpcLO9OCI59zf
JBX6K2LnXX1P+6eih/ivFh95vkiF9uuBGuW8jzapkOTlWqm6EP9TUT0/JPZS
b9q/ib/bVJ3HnK/wSIU8uebJ3IvE/1TYWvePiWe/RpiKf54MnpfzhfZPRWV5
++3v+zP/SIV4e82PoZx3k6Xiwuj9RdtZr81s+r78G9krhhH/UxF0OPvPfeaj
+amYZDPV8CLzo12pKF+YW7oriflaKrZF7DLvxnz2ZCqML5/Umd88j5SKNhMb
33xgf6wkFV+E3fd2YP+uNBWWDc+utrqtpstT8XrpgVYXXjO/S0VmzM6sxRVq
uioVP8vKnlawX1eXiplZ3XdufaimG1KRl1+W+PEu4780HLp7TzHnuZrWSsMZ
rdE6Zy4zH0yD2faDd3J+qGm9NCw/PnB52HvGf2mYoWuV8OKmmjZKg/HtnktW
c/7HJA33epyYMfSGmrZIw+aMyK6xzK+Rhvdbrv4pZT5sk4Yh/xivOy9i/JeG
R9aZK/3jGP+lIbjmiLN0DeO/NFhcLZr4lfv5paHPumCXCewvCNPwtKDd9d7s
R8akYfiG2c/N2T8RpWFa3cPRJpyHk6XB3kLkvor5b2Ya9hW9f6DD+kF2Gq7E
HjkrYX0hPw3tu0y3Pc14e1caHo/7LovhvEhhGpbuHffyFe/fyTS8u+V9z3sn
3/80/Hj3s2E946eSNHwpK95iyfmM0jTc6Ct2uv2W738axmddn+Ryiv7fxD/G
7J8s1puq0vDP7P5JqbyvdWlwftZPW5P9yoY0ND5cY/VP8/xlOjqVhWRvZr9Q
Kx1ZR0Wt/8f4VCcdM41m7/gC+n86ztYVLTrC+qcgHTHTZw4a6kX/T4dxRW4/
TeaHJukIqujj/9mU/p+OXisPrx/akvifjh2vA3JNv6vfV5t0bCpu00bK+Qj7
dNyRil1zL6lpl3R4m3cync95DY90eJZkntz0RU37pcPoZbWxJfNvYZO8RBOD
R/P5/qcjdVpogDPjaVE6inqVOerRHrJ0+N5pJa59TPxPx9fJJVpt2e/JToem
rseIobyf+ek4Xin3O8j62a50XP7d0+r5Uvp/k/7a091qfOj/6chZuskoqbl+
l47yI65/3g2l/zd9v+cfPUfOj5amY/XICLMn7GeVp0ORn/RedzL9v4l/5uFP
t1k/qUpH/OA2nWawv1SXjrmTx0gi2e9pSMf5VoZu45rng6UwWBGnHc55Zy0p
3Mo7DqvnfjpSXJ6rGSNnv0FPig/dhg/K5XkIpOj7BU51jI+NpPB52v6MZTXx
X4qtPReGLX7P+F+Kab2XParsQ/+XYuT4jjsqeL9tpMi8rWUp5PydvRQb5Tbt
jCjfRYrNsqyz7div9pDik+X+8es4j+EnhaFCuu0l629CKa6Ocr40gN8bI8Vk
5M8VNM8HSmH7p13hduK1TAr926eej6R/Z0oRu8Es8jfrV9lSHFjYfucv5gv5
TeuH0k9Z8/e7pPirX+KSGNbHCqUw3djvVDL7ryel8L25WrqG/doiKYRJrRPH
UX6JFM9urR9UxfnNUike3u89cDV/Xy5FpN7CAXNZH6yQQmNGZq/pxM8qKQJ+
FghOcN6yTgqZp7VnTh7t32Tv4rhLC1xpfxkCzLf5bWB/V0uG048HTXRjv1tH
hkzdwtglrAfrybAk7ceBO5zHFMgw5oz2ghz2f41kELrPVU3jPKaJDGfONjyP
5H2ykOHt3Xpne94/yOB06L5nBO+DjQyVo8+/3kK8tJfhcvQMPyva20UGly7d
eruyfu4hg7bvSYd9H/j+yyBTRefPIr9Qhhe2uo8eXuX7L4N193HXipvnD2QI
my8cM3AH/V+GyWFz5nZ5Sf+Xoe8TYaGE9ZVsGTaGbOwq5jxHvgziYusNL/yJ
/zLktN//tNSH+C/D4klfBLPZ3zkpw6+0rLsR7C8VyaC7decjz1HEfxl6ZYcN
dmpD/JfhrGr0iBOMl8plKEqQhH7n/GOFDAqRo/8lvjdVMsxfnurwJ4X5nwxd
Q3s/sPRg/CfDt2FvXuVxHkRDDmvHPtOeMz/XkiMv43i5SEb8l8PmXXmr+cx3
9eT4rXt4jSnnTQVyLKsde/ou/77ASI7xrru/9WN9wEQO1bf9JuWsl1jIMWaS
758evE+Qw/T0vZxz9Hebpv1Wt8vwZr/VXg79iYs7vmA/xEWO0rV9+p7jfISH
HAdKzYoys+j/ctw5NsOjE/FWKEd54MayhBz6vxzHcw9FvthM/5cjNuSra76c
/i/Hl4XGyVc5L5Upx7y78mOa1+n/ckTOOWy+od1Htf3lyE/tEjruHv2/6Xu2
Oy61qqL/y3FXW2OPUTn9v+m8r66dsl9LzV8kR8JXsW4t47sSOUZHqPJ8H9H/
5bg27WPcSPKXy7EoS5Zo/4v+L8fXZ13HnXxA/5fj0+j1KU+a6/1yVCRouTr/
Tf+Xw8L88HcvxoMaCowTHV2+huenpcAQB4/KUZx/11Fgcmv7xqpb9H8Ffmnq
V0zg/JZAgQFLZhiZcH7dSIHLNsnOK9h/MFGgsl36+yn8ewQLBfLNUtb8CqT9
Fdi6aLKbP/tJNgoUdtXtosf3016B9Usvjpw1i/ZXYGjuUZtCxt8eCjy6vd16
JftZfgpMTJzm6U08Eipwcevmgm58D2IUuDdwXuV21j9FCvQN/nHUjfguU2DO
zF5CJ/49TaYCvvo7/zacS/srEKpxzUyb+JWvwN5/XEI2k96lwMtpNo6VnEco
VKCfe36Xy8SnkwoUXdC8lMr5qSIFvup/sZxJ/hIF3p7KuDaM/ZRSBQRvrT91
Yv22XIGp3tf3dWc/vkIBja4vA4r30P8VGGzVzqtLDP1fgeMDc9suTqT/N9nj
bJ+Pq8mvocR6e+33Ys5TailxONy0ZS/Ws3WUUNmUS4YTP/SU+JrjbDKH8gRK
LDqcVF1G/DFSor7RXPSG/m6ixLrxV2KrOZ9goUTXV+tL8hlvQYlV87Mb01iP
s1Fi1K7n7fVZT7NXYvKpf5Ny2f93UcL7U3bKH9arPZQINi6/5MP74KeEIGbH
yKec3xEq4XLvfeLr5vdfiQkr2sp68D0SKfG59uDSs7x/MiVE10sqHLhfphIV
tT6j3jL/yFbiU8s8WyHf23wl5pTs22rF+aldSrw3S8l4xXnMQiU+KI62O8V8
6qQS+VMGSM/Rf4qUGBLe+sAq/r5EiYa2FwMPcp6yVIndK7foavPvVcqVyOvl
dKcX/blCialJh8smcj6sSgnff4OuDdxG/1cix0I/tQfzyQYlLo3990R+89+/
qGApkeRNJb5pqXCse6jFzvP0fxXGPZrRK575nZ4K01OG3MgiHghUSMl54D2I
85tGKpxvaSRI4feYqBDY2Xlk3nb6vwoH9UNsrjTPz6kQMP/faZeJFzYq+AwT
hTzg7+1V6PQx4MsMzoO6qCC+ZT97bir9X4X5SfOCz7F/6adCQQvfFx7spwpV
yLOS7h5K+8aooIVJh0TEO5EKxYH3TpnMpP1VyP90VeMm/TdTBT/jp4O+WdP+
Kph1jBxSRPzKV2GIs92FcuLPLhW6xO8+6c5+fqEK9sctDU6xX3xShdT1+/17
cL1IBbuCFkFOjNdKVNhYMX3IUuJTqQpvzw+J+M3+dLkKoQ6tGk3ZX61Qodpr
wJm+jEerVOjd5+DgFexH16nwWBWXeZ7xXIMK75M+ea7lfJZGBgZrDp7enn9P
opWBoXMjLt5if0cnAzvCuvTvupT+n4GwfoOm/NWS9s/AS62HRRv20/8z8Mpn
0gi5Pd//DNwVi+dvnUn/zwBy/46c5UL/b9rPNWDMetbLbDJw7fqwXkeesP6X
geBtZsfasx7pkoEv1pNvnP3I+m8GZJPLy7TZb/DLQKbluQCZIeO/DKRdtHZd
xvpcTAa2BWbMNihj/peBvIfXesd1Z/yXAaF5x9Fb2U/MzMC9DhHu2/n3DtkZ
6O6x79DQF6z/ZuDXiCvn3jxk/TcDr1XX5549yvpvBnbrnnY4cKXG6v8A0wCf
sw==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.547523091514145*^9, {3.5475231290341473`*^9, 3.547523158590369*^9}, {
   3.5475232303903837`*^9, 3.547523246335247*^9}, 3.547523333212943*^9, 
   3.547523432835452*^9, 3.5475236526092873`*^9, 3.5475240764090967`*^9, 
   3.547524107673142*^9, 3.547524140056625*^9, 3.5475241820197983`*^9, 
   3.547524227385325*^9, 3.5475243886219*^9, 3.547524445340016*^9, 
   3.5475244763926363`*^9, 3.5475245167590446`*^9, {3.5475245478157682`*^9, 
   3.547524602413033*^9}, 3.547524639811182*^9, 3.5475246862722483`*^9, 
   3.547524741465734*^9, 3.547524786528467*^9, 3.547524834692227*^9, 
   3.547524896065208*^9, 3.547525043449589*^9, {3.54752509050404*^9, 
   3.547525096788656*^9}, 3.547561434656838*^9, 3.5475614803896217`*^9, 
   3.547561813051835*^9, 3.547563358393386*^9, 3.547567928721895*^9, 
   3.547568130437497*^9, {3.547568330136607*^9, 3.5475683588874483`*^9}, {
   3.547569042000901*^9, 3.5475690743485813`*^9}, {3.547569179024582*^9, 
   3.5475691975172358`*^9}, {3.547569552840205*^9, 3.547569568731408*^9}, {
   3.547570327346691*^9, 3.547570341656344*^9}, {3.547845618241233*^9, 
   3.547845632098695*^9}, {3.547848553999886*^9, 3.547848560534753*^9}, {
   3.5478488087562637`*^9, 3.5478488124406357`*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "dx", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"dx", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "<", "0"}], ",", 
       RowBox[{
        RowBox[{"dxx", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"dx", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "/", 
         RowBox[{"amin", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"dxx", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"dx", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "/", 
         RowBox[{"amax", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"dy", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "<", "0"}], ",", 
       RowBox[{
        RowBox[{"dyy", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"dy", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "/", 
         RowBox[{"amin", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"dyy", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"dy", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "/", 
         RowBox[{"amax", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"dz", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "<", "0"}], ",", 
       RowBox[{
        RowBox[{"dzz", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"dz", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "/", 
         RowBox[{"amin", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"dzz", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"dz", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "/", 
         RowBox[{"amax", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dd2", "=", 
   RowBox[{
    RowBox[{"dxx", "^", "2"}], "+", 
    RowBox[{"dyy", "^", "2"}], "+", 
    RowBox[{"dzz", "^", "2"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547568154640725*^9, 3.547568218892476*^9}, {
  3.547568258080192*^9, 3.5475683252618837`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dxx", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"dx", "-", 
       RowBox[{"0", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Max", "[", "dx", "]"}], "+", 
           RowBox[{"Min", "[", "dx", "]"}]}], ")"}], "/", "2"}]}]}], ")"}], 
     "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Max", "[", "dx", "]"}], "-", 
       RowBox[{"Min", "[", "dx", "]"}]}], ")"}]}], "*", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dyy", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"dy", "-", 
       RowBox[{"0", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Max", "[", "dy", "]"}], "+", 
           RowBox[{"Min", "[", "dy", "]"}]}], ")"}], "/", "2"}]}]}], ")"}], 
     "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Max", "[", "dy", "]"}], "-", 
       RowBox[{"Min", "[", "dy", "]"}]}], ")"}]}], "*", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzz", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"dz", "-", 
       RowBox[{"0", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Max", "[", "dz", "]"}], "+", 
           RowBox[{"Min", "[", "dz", "]"}]}], ")"}], "/", "2"}]}]}], ")"}], 
     "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Max", "[", "dz", "]"}], "-", 
       RowBox[{"Min", "[", "dz", "]"}]}], ")"}]}], "*", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dd3", "=", 
   RowBox[{
    RowBox[{"dxx", "^", "2"}], "+", 
    RowBox[{"dyy", "^", "2"}], "+", 
    RowBox[{"dzz", "^", "2"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547568349818022*^9, 3.5475683533210497`*^9}, {
  3.547848756325449*^9, 3.547848803569998*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dxx", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"dx", "-", "cx"}], ")"}], "/", "sx"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dyy", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"dy", "-", "cy"}], ")"}], "/", "sy"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzz", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"dz", "-", "cz"}], ")"}], "/", "sz"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dd4", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"dxx", "^", "2"}], "+", 
     RowBox[{"dyy", "^", "2"}], "+", 
     RowBox[{"dzz", "^", "2"}]}], "/.", 
    RowBox[{"parmin", "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547568993824313*^9, 3.5475690395548353`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"dxx", ",", "dyy", ",", "dzz"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.547525103586336*^9, 3.547525123114108*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd2394HHWdwPEReueKOV019PZq9Fkx6toLuMdFXHpRvkCKCwRdSoRVAx1K
gEUCTNu0XdpQpu023bbbdtom6bbZtAPmdNGIe4+5x7WGY5SgqwZZIJQ9yaOj
xueWu3hONc+53pNH7rnr5Lnn8/Yfn5fz+X5+fGe+O5ukfmDDI+vuvUjTtDsC
mva//33hP941ocKh2+777XPP+v+Dkg7AQfXAFed/94eJZTfDIbVl2w9W3fzw
tO8WOKxeWffmLz/2u2Vfhuut8IdV62827Hzm6WVH4NXqrNOd29W3XL8NvgL9
ReG/w3xX4vrfw+2o/3H4KvX228qRd7Ytx38CjiH+aniN+uHbVn+7dvmy/wHu
gD8Jfwq+BlbSpsL810qbsHYdrl+H/b5e2rwe9TuxHtbWyvtvwtoNWA9rn8Z1
WIvjehz390Zp80asvwnrb8J8N2N/Ya0L17tw/2+RNm/B/J/B/nwG/X0W/cFa
Qq5XsJmQ98+BtVtlPgWbt8r5HFhbJ/dXrcN62FmH+W9D/7dhPezAWjf678b8
3Zgf1j6H+rD5OcwPa7dLK9i8Xe6PA2t3oD5s3oH6d2D+JOZP4rzCThL9fx79
fx7rYefzeL6/gPWw+QXMD2tfxPywCTuw1iP7U7DZg+enB/Pfif7vxOcF7NyJ
/b8L+38XzjvsIF5bj/lhc718vzqwpst5w7DS5Xw6bOqyng07sAtrd0uH78Z+
wPrdqA/bd+N5g13U0zagPqw2yPunwybibdjZIPt3Ye0eeT/CsLoH88PmPagP
O/fIfl2s13qlw714nmG9F88XbCPegd1enP97pcOwuhfzw+a9cj4bdu7F/Ye1
+2R/YVjBOmzCNuzch/t/Hz6/7pcO34/nH9ZhE7aRz4Hd+7H/Kex/Cs9/CvVh
M4X5YQfxLqw9gM8fWD2A+rAJ2w+gPuw+gPP/JZx/WME6bML2l/C+gF3Eaw/i
+YMVrMPmg6gPO7ALa32YH1Z98ucVvQ/7D9tY78Au8mkPSYcfwvdBWH8I+w/b
sPMQ9h/WHsbnH6wexvyw+TCef9iBXVh7BPcfVrD+CPYfth/B+w92Yc2QDhr4
PIKjBvbHkPudgHWsN2AT+SzYRnwJdgy5P1XYRT8ermsbpYNwGI5uxPmAE4jX
YWMj7h9sbcT7bKP8fC7BDuKrsAt7sLYJ88NhOLoJ9x9ObMJ5hQ3Em7AF23AJ
+Ry4in7dTbj/sLYZ88NhOAqrzZgf1jfLzwsDNpHP2izPow2XEO/A1c3y+XBh
bzPuf790sB/vg35ZPworxCdgvR/PP2wi3oJtuNSP9ytcRX4X9pBP2yId3ILv
Q3B0C55/OAHrW9RuZ3Ttkx973p8fNreoO95W/uiqyR/688P2FmWMbni8ctWP
/Pm3qNefNTauePTH/vxwdYtaO7/zHvXdn/jzw94WtX7rR7/zn598wZ9/qzr3
66Zzu6590Z8fDm9VL55/6tO37q7688Nqq7r8hV+946qLX/Ln36o2/OKNt3aP
+9ZhY6tyzl72YuxDL/vzb1WrfxH9Xv/9r/jzw/ZW9a9dL7T+21d9l2Bnq3rH
+tn3/cWNs/78W1Xfmr/6zRs/8u3C3lb13uJT8Z5LXvXn3yYd3KZ+//Nt24dX
+w5vU4/u+dU7rz3oOwqrbeqJruafv/VB3wlYRz4DNrepH196w8RPb/JtwTZc
gh24Cruwt011bnx95Qf/3d8PLS2vB+FwWu5PFFZplThbunb715fnh3XkM3Dd
hK203B8bLsEOXIVd1Pdg7VHMD4fh6KOYH048KuvrsIF8Jmwh3oZLiHfgKuw+
Kp9HD9a2Swfh8Hbc/+14/uHEdswPG8hnop4F29vx/MMO8ldhF/aQX9uB+Xfg
/sPRHTKfghOwDhuwCVuwjfol2EH/VdjdIffb2yHvlzYgHRzA/HB0QOZXcGJA
fr7oWG/A5gDmh+0B2X8JdhBfRX0X9lBfewznHw7D0cdkPgUnHsP9x3UDNh/D
8w/bqF+Cncfk/ativQt7qK/tlA7uxPxwFFZYn4D1nfJ+GbC5E/PD9k75/i4h
vwNXd8r9cGEP1h7H+x8Ow1FYPY7nH9Yfx/mHTdhCfhsuIb8DVx/H84/rHqyZ
Mn8ADpoyXwgOwxFTzhOFYyaeHzhuYj/hJKzDKdjAPGnYRH9ZUz4fFpzHehsu
Il8JLqM/B9crcBX1a7CLfHXYw/420K+2C/d/Fz4P4dAufD/G9QgcRf4YrJAv
DicQn0R+HU7BBpzeJffHhLOIt1A/D9u75PNfhEvIV4adXfLzrYL5q3BtF+4/
XMc8HtxAPm037j8c3C3zh+Dwbtz/3Wr44mu+VXrKnycKx5BfwXE4ASd34/0C
pxBv7JbzpmETzsIWnIdt1C+ifgkuY78cuIL8VbgGu3Ad9uAGrO2RP38F4OAe
2X8I18NwZA8+/+EY8ik4vkfuR2KP3N8krGN9CjZQPw2be3D+96jI+Z2bv/WT
5fsP57HehovorwSXEe/skeepAlexvga76L8Oe6jXgLWMdCCD8w+HEB+GIxl8
/sMxxKuM7DcOJxCfhHXkT8EGnMY8JpxFfgvOwzZcRL1SRt7PMuxgfQWuIl8N
dhFfxzwe3Mjg+/9e6QAchEN78f14r7xfETi6V84bg9VevP/hxF45bxLXdTi1
V75PDTiN/k04i/4t5M/DNlyES3AZdrAfFex3Fa6hXxeuwx7cwH5qgzj/cBAO
weFB2X9kUH5eRuHYoNo78+01+a5z/v0fVHdePNj3Up/vOJwYVK/d9d7XPtTk
Ozmo3vzILf+48B/L9x9OoR8DTg/i94+YJwtbg+qZGWPXtv3+/ucH1frznzh7
LODbhouDasfGoTsv+sjy76sH5e+7y7AzqN51y+CDP5j3fz9egauD8vfntUF1
9cry1YemfbtwfVCdOO9pm9b6+b1B+fvyBqztw/mHg/vw/X+f3O8wHNmH+79P
3r8YrPapp4ffCKxvW77/+3D/4STW63AK+Qw4vU8+fyb6zcIW1udhG/MX4RLi
y8jvwBXMU4VrsIt6ddhD/gasZWW+QFZeD8KhrNy/MBzJyvpROAYr1I/DCdRP
wjqcQn4DTmfl/TDhLOaxsvL5y8M21hfhEuYp47oDV+AqXEN/LlzHvF5Wft41
YG2/nCcAB/fL/kP7cf7hyH7ZbxSOwQqOo14C15OwjvgUbCA+jX5NOIv5LTiP
eBsuon4J9cuwg/gKXEV8bb983l24jngPbuyXz4t2QDpwQM4TPID7D4fhCBxF
vtgBfP+D41ifgJPIp8MpzGMcwP2HzQP4/Ict5MujHxsuHlDta7pPX3Jo+f7D
ZcQ7cAWuYr4a7MJ12MO8DVg7KB04KOsH4RAcPojzD0eRPwarg3K/43AC9ZKw
DqdQ34DTyG+inyxsHZSfl3nYPiifjyL6KcHlg/LzxIErB/HzP1xDfRf91mEP
9RuwlpP7E8jh/Q+HEB+GI3AUjsEqh89/OIH4JKyjv1QOn/9wGjbhbA6f/7ie
h224CJdy8vkoww7iK5ivCtdy+P0vXMf+ebjegLVD+P4HBw/JfCFcD8ORQ3L/
onDskLxfCvnjcAL5k7AOp2DjEM4/rptwFvEWnIdt9FuES3AZdpCvgn6qcA3r
XbiO/fXgBupph/H+h4OHcf7hMByBo4fx8x+s4Phh3H84CeuH8f6HDcyThs3D
8vnMwhby5TGfDRcRX4LLsIN5KnAV+Wuwi3nqyO/BDazXjkgH4CAcgsNHcP7h
KOJjsDqC839E9puAk0fkvDqcQj4DTsMm+snCFvLnYRv9FeESXD4i398OXEF/
VexnDXaRvw57yNdA/5olvcLC+wBusvDzAdyM+JAl97MFDsOtcAT52iy5X1G4
HfExuAP9KszfCccR3wUn4G44CfegHx3uhVNwH+Y1cL0fTmOeAdhEfAbOwjms
t+AhS/6+PW+pi1a++ftv7PN/31iAbUs1zr5+aWiD/++Jxy119ehTsTf+5P97
5iI8YeH/D2Gpmy9tGf/6dWcveBIuW+r3V0z8tHLDExc8ZamrHOfW9S8eveb/
7MDTlhradlWw+eA/XXDFUsbl03v0k9+54Bm4aqlTxVcSj7/bueBZS53b8vDP
/mb82QuuwXOwC89bKn3q4+/5+Ad91+EFxHvwItyw1Kpnl25OPPkvF7wEa0dl
/Ao4ADcdVTeuNCbPr/PnDcLNR2W/IbgFDsOtyBeB247K/qNwOxxD/g5YYb5O
OI76XbiegLuRPwn3HJXPiw73ol7qqPrK+eKOc6/47oMN5O+H0/AAbGK/MnAW
/eWw3oKHjqqpXz+XefAD/vo8XEA+G+vH4SL2YwIuwZNwGZ5CfgeeRnwFnsH+
VOFZPA81XJ+DXcTPw3X0twB7iF+EG9j/Jey/dkx6xTGcf7jpmKwfhJuPyf0K
4XoLHEb9VjgCt8HRY3K+duSPwR1Yr+BOOA53oV4C17vhJOr3wPox1djTFOo9
vnz+4RT2vw824H44DQ/AJpzB/cvCOfRvYf0QnEd8AbaPqfWBg88M2s/45x8u
HpPnZQIuwZPY/zI8hfoOPI18FVyfgavodxauIX4OdhE/j+t1eAH9efAi5m3A
S6inHZdecVzWCxzH+YeDcDMcOi6fnxY4DLfCkePyfdcGR9FvO+rH4I7jOP9w
JxyHu1AvgevdcBL72wPr6K8XTiFfH2ygn344DQ8cl8+LCWcQn4Vz6M+Ch47j
/Y/1BdiGx+Ei+ptAvRI8if0pw1PI58DTqF/B9Rm4ivhZuIb+5mAXz/s8rtfh
BeyvBy+ifgNeQj5tCN//4QDcNIT3/5Dc32Y4hPUtcBjxrXAEbhuS5ycKtw/J
92cM7kD/Cu5EvTjcBSeG5P53w8kh+bz0wDrie+EU3If1BtwPp+EB7L8JZ+As
9icHW4gfgvND8vkuwDb2cxzri/AE6pfgScSX4Sk8Dw72ZxquoL8ZuIr6s3AN
9edgF55H/jq8gOfBgxfRfwP9LMHaMM4/HBiW96sJDiK+GQ7BLcNynjDcivgI
3DaMn//h9mG5HzHk74DVsHweOuE46nfBCeTrhpNwD/ZPh3uRPwX3wQbcj/1I
D+P9D5tYn4GzcA62kG8I9fNwAfE2PI77V8T+TcAlrJ+Ey/AU7AzL98c0XEG9
GcxfhWeH5ffTGjyHeBeeR391eAH2sH4RbmA/l2BtBOd/RM4bgJvgINw8gt//
wS1wGG6FI3AbHEX9djiG+TpghfhOOI56XVifgLuxPgn3wDrcO4L3/4g8P32w
gf764TT6G4DNEfl5lxlRzp7bXsrc/n3//MO5EfXEpWvd2wrP++d/RF156Svr
hi/7kX/+4fyICnsnc9/96Av++YftEbW+8Ofmr5Wr/vkfUXu37Rz+5tLL/vmH
J0ZU69PHzbe5s/75hydH1G+/8bOrV3/5nH/+R9Sf/uubvbt6X/PPP+yMqMuc
X14Z7/Q9PaJu2v+et7yz1XcFnhlRxd6uyh/GfVfhWeSrwXOo7yL/PFwfUS9d
vnPkbMb3Auyh/iLcQPwSrJ2Q9VackP0G4KYTcn0Qbj4h5wvBLSdkf2G4Ffki
qN8GR7G+HY4hvgNWqNeJfuNwF+ITcDfqJ+GeE2rzurUvvnqxbx3uxf1IoX4f
bCB/P5yGB2AT9TLYnyycQ30LHkJ8Hi4g3obH4SI8AZfgSbiM+aZgB/dvGusr
8AxchWeRrwbPId7F/szDdcQvwB7mWYQbiF+Ctbz0irx8PgJwU17mD8LNeTX6
3m1jhV/7n78huCUv9yOcl/O2whG4DY7C7XAM83XACu6E48jXhesJuDsvz3MS
7sF+6XAv9jsF98EG+uuH0/AAbOL+ZOAs4nOob8FDuL95uID9suFxuAhPoJ8S
9m8SLiN+CnaQfxquwDNwFfPN5pU5uuq/255fPv/wHPpz4Xnkr8MLsAcvwg14
CdZO4vzDgZN4/8NBxDeflPOE4JaTeP/DrYiPwG2Ij8Lt6CcGd8AK83TCccR3
wQn01w0n4R5Yh3vhFNwHG3A/+k/DA+jfhDMn5fOchXOoZ8FDcP6kfP4LsI34
cbiI/ibgEuabRL9leArxDjwNV+AZ9FfF9Vm4hn7nYBf55uE6nu8F2IMXkb8B
L2E/tFPSK+AA3HRK5guekvM2w6FTOP9wGPGtcAT12nA9CrfDMbgD8yi4E/Xi
cBfyJeDuU3j/I38PrGM/euEU6vfBBvL1o580PID+TDiD/Fk4h/4seAj95OEC
8tnobxwunpLP9wRcQvwkXEZ/U6jvwNOIr8AzcBWehWvwHPbDRf15uI74BdhD
/CLcQP0lWBuV+7ViVF4PwE1wEG5GvhDcAoexvhWOIL4Njo7i/Q/HRuV+dcAK
9TpH5fffONw1ivc/3I38SbgH1uFe5Evheh9sYD/64TQ8AJtwBvuRhXPoz4KH
EJ+HC7ANj4/K7wdF9DcBl+BJuAxPwQ76n4Yro/LzcQbrq/As5qnBc4h34XnE
1+EF9OfBi3g+GvASrBXw/ocDBZm/CQ4WcP7hUEGex5YCzj/cWpD7HYHbkD8K
t6P/GNxRkOdZ4XonHEf9LjiB+G44ifl6YB3992J/U3Af1htwP5yGB2ATzqBe
FtdzsFVQ0/PFB+95zt/PITiP+QqwjXrjyF+EJ7C+BE8iXxmeQrwDTyO+As/A
VayfhWsFdcfL9b+97zfL5x928bzMY30dXsB+ePAi9r9RUEdefmLT2st8L8Ha
mPr6uj9f+s/qVf/8w4ExtUX9seXEGf/vK01j6u0tb6z+4p2v+Ocfbh5T17c8
uXHNqZf88w+3jKm3fO/5W57/hP/3nvCY+n7z3c+fK8745x+OjCnLe/uq7V/2
/57UBkfH1JveY1+Nve8H/vkfUzMzkaXX//o5//zDHWPqXSu//dC7V/p/z1Jw
55j63Pq1v4g3f88//3DXmPrWmp1fuXzYdwLru+HkmNpQXHWJ/aof3wPriO+F
U6jXBxtjasULv7zuu92+++E0PID1JpxBf1k4h3gLHoLzcAG24XHMX4QnxtQj
53/X/scR3yX0NwmXcf+mYAf1p+EK6s/AVdSbHZN/L63Bc6jvwvPIV4cX0J8H
L6K/BryEeO209IrTsl7gtOy/CQ5ifTMcOi3rt8BhxLfCEbgNjp6Wf79ux/UY
3IH5FNwJx+EuOAF3n5b3Mwn3IF6He+EU1vfBBuL74TTmH4DN0/LzIQNnEZ/D
/bfgITgPF9CfDY+fVu9fn8s/8Nry+YcnkK8ET56W/96mjPxTsIP5puEKPANX
8TzPwjV4DnaRbx6uwwvo34MXEd+AlxCvnZFecUb2F4CbzsjnLwg3I18I61vg
MOJb4Qji2+Ao4tvh2Bn5PHfACvGdZ+R+xeEuOAF3w0m4B/3rcC+cgvvQvwH3
Y540PID7ZaK/DJxF/RxsncH5h/OoX4Bt1BuHi6g3AZfgSexHGZ6CHXga/VXg
GbgKzyJfDf3NwS7i5+E6vAB7uJ+LcAP1lmDNlv1fZOP7APyXtvz+FYAvsfF9
AX4H8gXhd9tyvmZ4JRyCV8EtmO/9cBj1L4NbEf9hOIL41XAb+rkCjiL+Slu+
v9rhq2x5/2LwGuTrgD+FeAVfB3fCN2D+OK7fBHfBn4ET8Dq4G74dTqKfL8A9
2L+7bHk+dHgD9qsXvg/5UvCXUL8PfhjnwYA3oZ9+PC9b4TT62w4PIN9O2MR+
7oYzyDcIZ5HvAJxDvsOwBR/Dfg3BI3AePoX6Bfg09s+Gn4THMe9X4KItf/74
GjyB/p7+f/8PIHLk8Q==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData["
1:eJxd3X94U/W9wPFzXXVxdjNq3eK110WtPhnrw82kk8g6/IoVM+00YtWgxR2h
amDVHSCUUAocsJQAAQ4QSgopHF2vN27dnqjVm2E3j7Nq0LJF7TSbfdy5W/Xm
3nV7Mu1mdlfn3b05PPf5vv3H57V8vp8f3+/5JmndA5cu/86S+89QFOUul6L8
77+r/5Sv3XF+5i83fP6ta53/Qch2wW4x/P7XF7jnn3Yd7BHNq3piT078wnE9
7IUvE1/of3/+fzx92g3wlajvg+cgXyM8F/F++Cvo/yqxfOH5P9r4p9Pr58FN
yP9V+Gp4PhyAr4EXoJ+vwc2I/zrmWQhfi3ghW4eV6/A6rCzC64twXtfL1q9H
/y1YDys3yPutw8pirIeVG7EeVoJyP3oQ+/UN2fo3kP8m1L8J62/G+puxvhXr
YeWbeP2b2L9b0P8tWH8r5oeVkGwB6yGRueiKrvhtji1YuQ3rYf02+fwtWFki
749YgnlhC1Zuly1gHbZgpQ3r23BebegfVu6QLWD9Dnk/LFi5E/PDOmzByl3o
H9Zh6y7UD+P8wnieYAtWlsoWS3H+sLUU+3c39g/W78b8sHIP1sP6PeKDF0If
1R88XR9W2jE/rLfj/NvFn/eufG4odrr+MtliGerD1jL0fy/OH9Zh616c37fQ
P6zDFqyo8vPhhYUqx6uwjngTtlR5v20V+3efbO992A9YvQ/1YfM+PK+wjXhl
uWwvLGAV1pdjfthaLs9nw8oKeT4vLFagPqyvkJ8vE7YQb6/A+18Hzh8WsNqB
5xs2O/C8wTas3I/9hwWswvr9qA9b98v927DyAOaHxQOoD+sPoD5et2Ab8cqD
sr0PitdPvNn9q7tOnz+sPoj3d9h8EM8/bKOeEkH9iHxfRQTzw3pE7s+ELeS3
YWUl6sNiJeqvFKd+f+LZJWtO14fNlbh/sL0S77+rcP9WoT6srpL3R4fNVTh/
2IaVb+P5hwWswvq3cf6whXgbVjrx/MOiE++/nbj/sNmJ+WEb+ZSHsP+wgNWH
UB82H8Lz/xDqw8rDeP5g8TD2H9YRb8LWw3L/Nqx8B/N/B+cPq7AOm7AF27Ci
yXZr8n3ywn4N+6PJz0sIVhGvwTriDdhEfBa2NHn/CrANl5FfWS3bDXth/2qc
DxxajfcLWEO8DhuIN/F6FrZWy+dTgG30X4aVNfL+uGHvGrmeHxZwaA3OH9bW
4P0TNhBvwlnYgguwDZdhZS3mh71rcf6wWIv5YRXWYH0t5sfrJpxFfQsurMXn
PVxGPiWK+x/F8x+Vn0c/LBAfgtWoXF+DddQ3YBP5snjdggvIb8NlxCvrMD/s
hf2wgEPr5HrqOvn3JRqsrxN/mJk/79APJpz5YXOdeOn2nXOv/9c3nfnXiTve
fqVzqsWxBRfWiffvPuv723/zhjM/XF4nGq++KHJgoWOlS/hWKkOfWfq6Mz/s
7RJv/mHmmi8e/7kzPyy6xPe+ufirp1I/c+bvEtP3iLlLzj3lzA9rXeLMk7sv
277lVWf+LjE79+4j60byzvyw2SUuTP/L3kzDy878sNUlPntG9KyBpWPO/F1i
IDegP3Xei878cLlL7L8kUnls8QvO/Otlu9eLx5eO/ebW7ued+deL2VPuP294
0XLmh8V68dQV70Xf2+o4BKuI12Ad8QZswtn1YsH3Ln4v9rHTnwUXEG/D5fXi
vLMfsq/86CfO/DF5vRv2xkRk048+DInT88MiJs8TgtWYXF/Deh02UN+Es7AF
F2Ab9cuwskGu74a9G+Tnwb8B5w+HNuD8YQ35ddhAvAlnN2B+rC/ANlyGlW65
fzfshf3d8vMj4FC32JS78N2P1zpWYa1b7l/vxvMPm6ifha1u+XwKsN2N+bvF
Oy8f3DA/fvr+b5Tt3ijX98L+jXL/Ag4hXoU1WN+I84fNjZgftuACbKNeGfmV
Hjz/PTh/2N8j76+AQ8in9sjPhwbrPTh/2ER8FrZQrwDbcBnzKJvw/MNe2L9J
7k9skvOHYBXWYB35DNhEfBa2EF+Abbi8SX5elc14/9+M5x/2w2Izzh9WkV+D
9c14/mET9bJ43YILyG/DZcQrW+T8bti7BecPiy04f1jdgvmxXocN1DfhLOIt
uADbqF+GFV22C3br8n3z6Ph8hH1Y74cDiBdwEA7BYVhF/gis6fLzGIN1Xd7f
ONYbcAr1TTiD/Fk4h3gLr+fhAuKLsI3+SnAZ+So63v+2ynZtxfnDnq3ixq7m
9Z870/m89GK9D/Zvlfc3AAvkD8IhOLwV5w9HkF+DY8inw3HkM+AUbGJ9Bs5i
P3Kwhf7ycAEuYr0Nl7bK97UMV9Cfsk3O74LdsAf2bsP5b8P9hwNYL+AgHILD
sApH0I8Gx2Ad6+OwAadgcxvuP17PwjnEW3AeLsBF5LPhEuLL2P8KrDyC93/Y
/Yicz4PXvbDvEXxfgAOP4PsjHIRDyB+G1Ufk96MIrCE+ButwHP0acAo24Qz2
KwvnYAvOwwXkL8I2XILLcAVWenH+vfL+u2FPL+4/7OvF7wvgAPIJrA/CIawP
w2qvfJ8jsIZ8MazX4TjiDTgFm3AG82XRTw62sD4PF9BfEbbhElyGKzhvZTvO
fzt+HoQ92/H7se04f9iP9QFYbJf3IwiHkC+M+iocwXoNjqG+DsdRz8D6FGxu
l39/mIGziM/BFvY/j34KcBG24RJchiuop/Th8x929+H7P+ztE9f/9lMnE2//
yDn/PvHKJx+d6B971jl/ONAnFpTi6a0XZ53z7xM//K1x5qY/DjnnD4f6xNkn
7/j4xE19zvn3icq2Pu+OJw8/Xz1/ONInDmmXnvr9nCeq1uDY3/PPvU1ZEHiq
ar1PPP6nSP2V9+aqjsNGn3j2S+ONN8w8V3WqT+gD3idWXfDTqk040yf+qfeJ
ed+9b6zqbJ8YePCZ6wair1Sdg60+EVMDL915Tb7qPFzoE1cvWTj++k9PVl3s
Ey+6Ohb/rtt53YZLfeLKS9557qnGl6su94md85Z8pfvdF6uuwMoO8dnQ4st7
X7OqdsHuHeLm7sv/+eH1o1V7dogFi61Lbv13Z3+8sG+HUFb/8Ox3W0aq9u8Q
nd67Pv3MC09XHYDFDjHn/GWf89/8TNVBOASHd4ifLB9xL/2ZYxWOIF6DY6iv
Y30cNhCfgk3EZ+As9iO3Qxx64czaT+cdW3AeLsBF5LPxegku7xC3P33OBdtu
e9Y5f1iJy/Eu2A174vJ+emFfHOcPB2ARl/crCIfgMKzCEfSjwbG4KH1qxYXf
n3Dm1+E45jXi8n6lYBPzZOAs8uXQjwXn4/LzVYCLyG/DJexHGfUrsLJTjnfB
7p1yf56d8nov7IP9cAD5BRzcKc8T2inPH4ZV5I/AGhzbKZ+fDscRb8Ap7IcJ
ZzBPdqd4++ef1CQWOv3mYAvr83AB9YuwDZdQvwxXMK+yS7ZrF84fr3tg7y6c
P+zfhfu/S55PwEGsD8FhxKtwBNbgGKwjfxw2EJ/C/phwBvFZOIf8FpyHC1hf
hG3El+Ay4is4D2W3bNduOd4NexDv3Y3zh/2ID8ACDsIh1A/jdRWOwBoc2437
v1t+P4nDBuqnYBPzZnbj/sM52ILz6K8AFzGPjfoluIz4Cqwk8PkPu2FPQn7/
8sI+xPvhQALv/wncfziUkPsNwyryRRLyfmlwDPl1OI78BpyCTazPwFn0l4Mt
OI/1BbiI/bThEvor4/UKrOyR87tg9x45n2ePWLQlc8aK55yfn7ywb498f/xw
YA/OHw7CIfQThlU4AmtwbA/uPxzHvAacwjwm8mfgLObJwdYevP/DBbiI9TZc
2iPfxzJcwbzKXtx/2L0X7/+wF/E+2L8X7/9YL+DgXnl/Q3B4r9y/ivURWINj
sI5+47CxV36+U1hvwpm9eP+Hc5jHQr08XMD+FWEb+UtYX4YriFf24fv/Pjm/
G/bA3n34+Q/275N/vgrAAvmCWB+Cw/vkeVQ4gngNjmFeHa/HYQPxKdjcJ59n
BuuzcA624DzmKcBF2Mb+leAy4iuwYsiuMfB5ANci3g3XGfL+eAx5f+phL+Ib
YJ8hz9OIen64CQ7Azcgn0E8LHMT8rXAI+dpQLwy3Y70Kd6B+BO5EPQ35o3AM
+XtgHfl6sT4OJ3A+Bpw0xHTw5OPXGS8498UQtz6/06qZ5/y+Mw2bhnjnrcq7
F02eqnrIEP45R0+cu+x15z7Bw4bIiL01m3e96dwvQ4h7//bq3A8nqh6Bc4Z4
4KrkOX+54BdVjxpi91lzWl9scmzBY4bYcc158a/d6qzPGyIwNr7oiz6n3jhc
MMTQ2nXiz0NvVD1hiKWvfeP5+1Y4LsKTsA1PGaLpo6c3H17kuARPI74Mz8AV
Q1xQvvqMOz7t9DsLK/vl+BrYtV9sPv7rT77c67gWdsN1++X98MD1+8W5l1+y
8NSljr1wA+J9cCP68++X96cJDiB/MyzQfwscRL7W/eIPFz/6wq73HYfgNvQb
htvRvwp3oF4E/XTC2n5x8sZztlovOY7CMcT3wDrq9cJx9J/AegNOon4KTmNe
E+uH4Aw8DGex/yNwDvVG0Y8FjyF/Hh5HvgI8gf0rYv0kbGP9FFzC/k/DZcw7
A1eQbxZWDuD+wy649oA8nxuuOyDP58H6etgLN8C+A7j/sB9uQv0A3Ix+BdyC
fEG4FflCcBscxvp2WMW8HXDkgPx+1Yl+NTiK9TG4B/V1uBeOwwnkM+AknML6
NGxiv4bgDOKH4Sw8ckC+zzl4FPEWPAbn4XG4gP2fgIuIn4RtzDuF9SV4Gs9D
GZ5B/go8CysHZdccxP0/KNevhd2Ir4M9iK+HvQfl+RtgH/prhP2Ibzoon3cA
bkZ9AbcgXxBuRf0QXm+Dwwfl82mHVexXBxxBvU5YQ/9RzBuDe9CfDvciPg4n
UM+Ak8iXwjxp2ET+IThzUPzXLfGPz/iH0/cf67PwCJyDR7F/FjwG5zHfOFxA
/ARcxH5MwjY8hfUleBouwzPYrwo8i3pKUnZNUv7+4IJrEe9O4v7DniS+/8Ne
5GuAfYhvhP1wE+oH4Oak/POPgFsQH0T+VjiUlJ/XNjiM+HZYhTuw3xG4E/k1
OJqUn88Y3IN6OtwLx3EeCdhAfBJOJeX3uzRsIt8QnIGHkT8Lj2A/cvAo8lk4
7zE4j/zjcAH7OwEXkW8S89vwFNaX4GnMU4ZnMF8F/c7CyiF8/sOuQ/j+D7vh
OtiDfPWH5P68cAPW++DGQ/K8frgJDqB+MywO4fMfDqK/VjiEfG3oNwy3wyrc
cUh+HiJwJ+prcBT9xJC/B9aRvxeOYz8TsIH6SaxPwWnUN+Eh9J9B/mE4C4/A
OeQfhS14DM4j3zhcgCewvghPIt6GpxBfgqfhMjwDV7D/s7DSj8//fvl8XXBt
v/x55Ibr+uX744Hrkc8LN8C+fnz+w364CQ704/d/sEB8Cxzsl78/teL1ENzW
j/sPt2M+Fe6AI1jfCWuoH4VjcA+sI19vv+h+4+WvDR1zft8ehxP9wvrBLyvZ
/y44979fjNpW05cudJyEU/3ixr5HJ8th5/f7adjsF+qH04XLT77q3P9+ceYX
7r1W+6Pz/1/OwMP94q7K6iHPZ53/vpCFR/rl/16S6xfXJ/56wxemjjv3H7b6
xe1vvHrZzZv2Xvt/Hvv7+ms+eOPSw4NV5+HxfvH8xlsnX/ru8aoL8ATii/Ak
4m14Ci5h/TRcRvwMXIFnYeWwuErZ/lHfu49WXXNYzu+Caw+Ls7/11gdNRbNq
N1wHe+B61PPCDYj3oX4j7D8sz9MEBw6L6JpfPfvV1YerboYF6rdgfRBuRX8h
uA39heH2w+KVkfnWLzcNVK0eFhd9lDy5adfRqjvgCOp3whochWPI1wPriO9F
f3E4gXkMOIn8KTiNeiY8BGeQfxjOor8ROIf6o7CFemN4HvLwOM67AE+gvyI8
if5srJ+CS6g/DZfR/wxcgWcxv5KSXQO74FrYDdel5Hk9cH1K7seL9Q2wD/GN
sB/5m+BASlzq3/SD/R2HnPsPi5R8Hi1wEP20on4IbkN8GG5HvAp3ID6CeTph
DfFROIb4HljHfvTCcfSXwP4YcBL5U3A6JT/fJjwEZ+BhzJeFR+Ac+h+FLfQ/
BucRPw4X4Am4CE+m5Ptrw1PYrxI8jf7K8AziK8g/CysDcn81sGtAfh5qYfeA
XK8O6z1w/YB8nl64YUDc8+i82eLUY879hxtRzw83oV4Abh6Q5xfI3wIHB3D/
4RDytcFhxLfD6oB8fh14PQJ3Yh4NjsIxuAf7pcO9OI84nIAN5E/CKTgNm5hv
CM5gf4bxehYewf7n4NEB+fufBY8hPg+Po/8C9m8CLsKTsA1PwSV4GvOW4Rmc
TwWeRbxyBJ//R3D/4VrEu4/g+z/sOSLvXz3sRf4G2If4RuT3w01wAG4+Ij9P
Am45Iu93EG5FvhDchvgw5mmHVbgDjhyR3486YQ31o6gfg3tgHe6F43AC9Qw4
CafgNJ4fE/mH4AzWD8NZPB8jcA75RlHfgsew/3l4HC7AE3ARnoRtzDMFl9D/
NFxG/AxcwXyzsHJUjq85iu//cO1R+b644bqj+PyH64/i/qN+A+w7ip//YT/c
BAdQvxkWcAvqB+FWxIfgNuxXGG5HvAp3oF4E83TCGvJH4Rjy98A68vXCcTiB
/gw4ifNNwWnEm/AQ+sug/jCchUfgHPZjFLbw/I7BefQzDhfgCeQvwpOY14an
0H8Jnka9MjwDV1B/FlbS+P4Pu+Ba2J3G93/Yg/j6tFzfCzcg3gc3wn64KS2f
XwBuTuP7P/ptgYPI3wqHkK8NDmO+dlhFvg44AndivQZH0X8M7oF1uBf9x5E/
ARtYn4RTaXz+wybqDSF/Bh5Oy99/svAI8uXgUeSz4DH0l8fzMw4XMO8EXEyL
7Yt+o3z5d9917j9sp8XtkZs9L33mCef+p8WKnfMfffPSJ537D0+nRfTHR578
4N9GnPsPz6TF2/Puee2Zu0849z8t/3lDs7AyKB5d8prrp5POn59eA7sGxc73
ttTt63zFuf+D4sUT+7+knD3u3H+47u/xi0/mdi1z/nx4D1w/KNac13jF8SOv
O/d/UHS92/KfV+rOn0ffAPsGxdIh2985x/nz8Bth/6BYtvovMx+e6/x5+k2D
8t8XEICbB8XFKz7568MDbzn3H24ZlP/+oiDcOij//RAhvN4Ghwflv++rHVZR
vwOODAox/1DzNSccd8LaoHjgnC9v+tQ7jqNwDO5Bfh3uheNwAvUNOIn5U3Aa
NuEh9JuBhxGfxesjcA77PQpbgyL79J1/O1z/tnP/4TzmH4cL6GcC9YvwJOJt
eArxJXga+12GZ9B/BZ5FvHJMdg3sOibPWwu74TrYc0zuvx72HpPPowH2Ib4R
9sNNqB+Am2EBt2D+INwKh+A29B+G29GvivUdcATuhDXki8KxY/Lz1QPryNcL
x+EE9suAk4hPwWnEm/AQ4jPwMJyFR5Avd0x+/kdhC+czBuePid2/tn586q+n
7z9cwH5PwEV4ErbRzxTql+BprC/DMzjfCjyL/VKO4/7DLrj2uNyPG66DPcdx
/2Ev8jfAvuPy/jTCfsQ3wYHjuP+wQD8t6D8It8IhuA0Ow+3H5edHhTvQTwTu
RD4NjmK+GNyDeB2v98Jx1E/ABuKTcArnkYZNeAjOwMNwFh7BfDl4FPEWPAbn
4XG4AE9g/iI8CdvwFFxC/mm4DM/AFeSbhRVTPs8zTLwfwGeZ8n664M+Y+L4A
fw753PD5cB38eVN+P/Og/j/C9fAlsBe+DG6Ar4R9mG8O3Ij9nQv7EX8V5m2C
r0b9ALwA+ZrhhSb+vm54EfprgReb8vtvEPlvglux/hY4BC+B2+A74TD25264
HftzL54fFV6O+A74AeSPwKuwn53ww6b8fq/BazBfFPvZBcdQvxvuQfxmWEe9
bXAv3AfH4V1wAvPtRX8GfABOwv3In4KP4PlMw8eQz4QfQ79DyP84nMH5fg8e
Rr4f/r//Bx6Odbk=
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData["
1:eJxd3XFwpGV5APCv9rQZJ+Nsa6bN6NnZamp3NOqi0UaN+gHBphjtCgEWjLhA
gAUCrBBggQAfkDuWI8AeF8Ie5GBHUxttpu5Mb2yqN3Vrb2pGo+50Mp10jM7a
OWe206hr53RSJ62dTpPpvD/+YX58z/u8z/O+7/d9mztu7w+uv/OyG18VRdFV
PVH0v//+v3+6H/ne5Utv+M2Vna/v/4c4dA9OxcOfe098ZObAfbg/vvUHf/me
Lx858GGcJv7N8atv/tr4p2448AB+a/xPb7/46gsuO3AGv418g/id8an+gT/6
l8UDZ/EF9Pdurr8HD+H34vdR3x/jYeLfjz9A/x/EI/hD1P9h/BHmj0MnMfNf
GDq5kPW8KHRyEft7cejkYvKPch1Hl5AfRx8N+09w9CfUj6Mx8o+xPn/K+uDo
Uq5fyvwfo76P0d84/ePo41z/OPV/gv5w9Gf0h6NcWF+Mk1zYXxNHn2Q8Tj4Z
1tPE0WVxvfutG3/rwoPxl9Evbl4Wv+rZvte9428Pxl8eOr6c8bh5eThfNMH8
E4yfCPtp4uiKcD1jnFzBeBxdyXicXMn64+gqxuPkKvq/iudBPnSc5zzjZp76
r2b/r2Z+3CQ+uibMH+PkGurH0afC8xTj5FPMj6PJMF+ME9ycZPynWf9PUz9u
fpr6r2X+a1k/3LyW9fsM/ePkM4zHUSGMT+O4EJ6PAk4KYf113MTtAvffdaHT
13GecAEnuH4d/eL2daz/9aHT1zP/9eH4Ak6uD9erjpvXh+vVxtEN4fMrjeMb
mB8nNzA/bhLfvoHzMxU6PcX9iAtTnC9cn2L9cZv46EbOH45v5Pzh5MYwfx03
b+T84eimsL80jm8K4ws4uSmsp34Tz3vcJj66OXT6ZvrHhZuZH9dvpn/cxlEx
dLrI8wgXcML4Om4W6R9HtzA/jm8J74fCLcyP67dw/nEbR7dy/m7lfYgLtzI/
rt/K8x63iY9u4/7D8W3sP05uY37cJF8bR9Pxe781/xtXfetgfhxPMz9OcH2a
84/b05y/29n/2/k8hgu3s/64fjvzM76Nozu4/3CMCzi5g/cPbt7B8wdHd9L/
new/LtxJ/7hOviZu46gUOlXifYSzJeorheclhwvkL+GkFO5HFddL4flq4CZu
4TbzdbkefTZ06rO8D3CW+BjnPsv7Gpc+y/7hKq6Tv4Gb5G/hNu7i6K5wP1M4
jbN38XzGOVzApbvC/U1w9S7ep7iBm7h1F/cb9XdxdDf7j9N3h/VlcXx3eD5y
uEB8CSe4ejf948bdPN9xi/rbuIujGfqf4fMwzuJ4JlzPHC7gEk7IV8V13KDe
Jm7NcP5xF0f38Py7h+cfzt5D/zh3D/3fE9ZXwgnzV3H9HvYfN3ELt3GXfqJ7
45tf/epfJN8/6B+ncRbH98Yvxg91vrRz0P+98bv/48ffyKR/st8/Lt0bv1D8
5y/OXrTv5N7411+5/Xv//bp9V3Gd8Q3cvDfe++E/VltT+27hNu7eG193xd/c
N/DEvqP7Qqfuixeq77rtE7V9p++Lv/ntv7i2/MV9Z3HM+BwukK+EE+KruI4b
98Xf+vwnTn3h8oP+ces++sdd5o/KoVM4jbM4LseDF9Uu2fj2Qf+4QHypHK5f
gqvE13GjHK5HE7dwm/FdHN0fzp/C6fvjd73hI3O/uueg//vD/DHOMb6ASzjB
VfLVceP+cD+b1NfCbdzF0QPh+Unh9APhfNkH6B/nHgjXt4BLD4TnIyF/FdcZ
38DNB8L1a+E29XVx9CD3/4Ph+qRxlvgY5x6kf1x6kP7JX8V13MBN8rdwm/q6
OJql/1n6x1kc49ws/c/G//ma9GWf++pB/ziZ5fzj+my4Xg3cpP4W87dxl/jo
Ifp/iPsfZx+if5zDBfKXcPJQWF8V18nXwE3iWw+F69vGXeKjh3n+PxzWl36Y
/cfxw+HzIocL5CvhhPgqrhPfwE3cepj7H3dx9Aj7j9M4i+NH6B8XHuH+Z3yC
q4/w/MMN8jVxC7cfYf9xlITuwakkXK/+hPXBmYTPC3g4CfuJ8VjCepI/jwu4
iEv0U8YJ9VWS8PlSxbWE5zNeYf4GXiO+iddxi/Xfwm3yd3CXfLtcjx4N3YNT
uP9Rno84g7OMH8YxHsO5R8PzkOd6ARdxCZcfDdcjwZVHeR7TTw3XiV/BjUfj
zzyUev8vtw/2HzcfDc/jOvW28Bb527hDfV28y3pGj4X99+AU7sfpx8L5MziL
h3GMxx5j/3Ge+Qu4iEu4jBNcwVXmr+E6XnksXO8GXnuMzy94nfgW3nqM9zvu
PMbPe4zfxdHjoXtw6vEwX//jPP9x5vGwniwexjEeI1+O63lcwEVcIl8ZJ7hC
v1Vce5zPJ3jlce5/vMZ8TbyOW+zHFm6Tv4O7rMcujuZ4/uMU7sdpnJnj/sfD
xMdzYT9jOMf4PC7gIi7hMvMnuEJ8Fdfm+HyGV8jXoJ813Jzj/Y9bzL+F27jD
/F28O8f+H+Hz3xH2H/cf4fmPMziLh3F8hM9/OMf8+SP8+gouEl/CZeITXDnC
5z/Wp4brR3j/4wb9ruEmXqfeFt4ivo07xHfxLo6OhvX24BTux+mj3P9H4+Nr
lcH0Tw/2Hw8fDT//xFwfw7mj8S/fef/rZ1I/3d//o/Ez7R/95OcX77uAi0fj
v3/jNT964xX7LuHy0fipng9++R9O7jvBFVw9Gr/lq59/8sLv7Lt2NK5kF0rP
/2zfdbxyNP7pF+au+rff/tn+/h+Nf/7w2xd/78z+9TXcPBp/7bbeqa9H+/Hr
uIW3mK+NO8zfPRpf+Ys3PnTbD/ev7+LoiXB8D07h/ifC/GmceSKsN4uHcUz+
sSfC+nI4jwu4+ES4XyVcZr7kifjyN93z4Q8N7ddTwVX6q+E6/azgBl6j3iZe
J76Ft3Cb/jq4S727OKqE8/dU2H/cj9M4UwnzZ/EwjithP2M4V4nT/7p36evf
su889RZwkfElXK6E65PgCvmq1FvDdfKv4EaF+5/rTbxOvy28Rb1t3GE/ungX
R09y/+PUk2F9/VxP48yTYb1ZPEx8jMeIzzF/HhcYX8SlJ8P1L3M9wZUn2X9c
Y/46XsGNJ8P9WcPNJ8PztI5brMcW19u4Q71dvIujY9z/x9h/rvfjNPEZnD3G
8/9Y2E+Mx46F/eRwHhdwkflKuIyTY+H5qOAq/dSOhftXxyvU08BrzN8k/zpu
sT5buE3+Du6yX7vMHz0VugencP9TvP+fCuvJ4Czjh3H8FPc/zhGfxwVcxCVc
Jn/yFM9/XCW+huvkX2F8A68R38Tr5G/hrafC/WxzvYO77NcujubZf5zC/fPc
/zgzz/sfD8+H6xFzfQznmD+PC/M8/+fjo/mfXHDzJQf7j8vz4flMcAVXma+G
6/S/ghv0u4ab5FufD58/LbzF+DbukK+Ld3H0NPuPU0/z+Y/raZzBWTz8NJ//
yD+GcziPC+Qr4tLT4X6UGZ/gCuOruPZ0eD7q9LeCG8y/hpt4HbfwFm7jztN8
/se71Bc9w/sfp57h/sfpZ/j5D2eJH36G+x+PPcP+4zz5CriIS9RTxgnxFVx9
JtzvGq7jFdzAa7hJf+u4xX5s4Tb9dBjfxbuMj55l/58N86VwP04/G/68nMFZ
4odxTPzYs+w/zuMCLtJPCZef5ec/rldw9Vme/7j+LPvP9QZew028jlvUs4Xb
9N/BXbxL/qga+lA1fN/04N4q5wP3VcP16Cf/YZwmfgBnyD9Y5ecLPFQN93cY
jxAfV8P1HMVj1fjvLv7rz/3kS/sexznyTVB/Hk/SfwFP0W8RT+MSnsFl8s/i
hPWZwxU8j6t4gfWr0f8SrlfD+3+5Gn5eW8Gr1Th3yXd//bpjB/dXNf737/6g
/2s37/s0XqvGaydu/MPjV+77DNeb+Gw1ftNrr+z9cfngfqTeDdwi/yb9bOFt
+mnjc8R38A79d/F5vEs/ezg6HvZ/CPccD+vrPR7Wk8J9x3lf4MPHw/VK4wGc
wYPUk8VDeJjxIzimvlE8Rr5xnMMTjM/jSdargKdwkf2YxiU8g8v0O4uT4+F5
mMMV+punvipeIL6Gl45z/+NlvEK9q7hB/Gm8Rn1n6K+Jz5J/HW+Qv4U38Rb9
b+M29Z3DHbyDu9R3Hu9y/vboN3ou9KHnwvE9uPe58HylcB/x/c+F9R7GaeIH
cIb4QZx9Llzvoee4//EI42M8+hz3Px4nX47+J3Ce+ElcYP4pXGQ9pqmnhGcY
X8azrFeC55ivgudxlX4XcA0v4Tr5lvEK9a8yvoFPE7+Gz9BvE5/F69SzgVvs
5ybeIn4bt/E56u3gHerr4vPE7+I9HJ0IfQj3nOD+xyni+3D/iXA9DuP0iXD/
BnAGD+IsHsLDeIT6YjyKx/A49edOhOs/gfPET+IC9U3h4onw89w0LrEfM+Qv
41niEzx3InyeVPA861HFC+SrMf8SrrNey3iF/KusTwOfxmv4zAne//gs8ev0
s4Fb9LOJt+hnG7fp7xzu4B3cxefJv4v3qD9aCH0I9+DeBT7/L4T5+3D/Avc/
Ti9w/+MM+Qa5nsVD5B/GI8THeBSP0f84zi2E52cC5xf4/I8L5JviehFPsx4l
PIPLeJb1SPAcrrAe87hK/Qu4hpdwnfO0zPwreJV+Gvg0+dbwGdxk/Fm8Tr8b
uEV9m3iLfrc5H218jvEdvEP9XXx+gd/voZ89HD0f5j+Ee54P8/fi1PNh/X24
n/jDOI0HcAYPUl8WDz3P+5/xIzjGo3jseT7/49zzvP8Zn8eT1FvAU7iIp3EJ
z+Ay9c3ihPg5XMHzuEq+hee5//ES+1PHy+RbYb5V3CD/abxG/BncxGfxOvu9
wfUW3qT+LbxNfBufYz06XN/BXfo9j3fJt4ejRX7+X+T+x72LfP7HfcT348OL
3P94gPgMHsRZPISHF/n8j2PiR/EY/Y3jHJ7AeTxJ/gKeWgzPS3ExfJ5P4xL9
zOAy6zuLE+qbY/4Knl/k98cW46u/842vnawc/Po/ri3Gk39+y6+++e59L+H6
Yvj/0y8v8ucp8Ooi3weCT+M1fAY38dnF8PtH1vEGbuFNvIW3F+PvPPiL72/+
18H3szD/OdxZDL9vZQd3F8PvczmPdxfD71vZw9EL4XyHcA/ufSHsJ4X7Xoin
3nHtVy674ODPC+DDxKfxwAvh+mReCL9fZhBniR/Cw8SP4Jj5R/EYHmc9cngC
5/Ek+Qp4ChepdxqXyD+Dyy+E38c2ixPyzeEKnqe+Kl7ANbxEfXWuL+MV4ldx
g/0+jdfwGdykv7MvhPfXOt4gvoU3qW8Lb9Nfm3rO4Q7ewV3ynce71LfH+KgW
+lAtvF97cG8tzJfCfbXw+dOPD9fC50+6Fn4/1QDO1MJ+BnEWD+FhPIJj6h/F
Y3ic8Tk8gfN4knwFPFULz1uR/ZnGJfLP4DL7N4sT4udwhfnmqa+KF4iv4SXy
1/Ey8St4lfVqcP00Xqvx/sdNfBavU98GbrGem1zfwtvU38bncAfv4C4+z37s
sh57ODrJ+x/3nAzr78Up4vtOhvX048PEp/EA+TN4EGfx0Mmw/2E8QnyMR/EY
Hsc56p/AeTyJCyfD9/EU9RbxNOtZwjMnw/0t49mT4fM4wXPkq+B56qnSzwKu
Mf8SrrOey3iF+FXcwKfxGj5DfU18ln7X8Qb9t7i+ibfoZxu3mf8c7lD/DuO7
+Dzz7+I96o9eDH3oxTBfD+59Mawnhftw/4t8/sdp8g/gzIt8/ud6Fg8x/zAe
wTEeJd8YHic+hyeoN8/6TuICnsJF5p/GJeaf4XoZz+IEz70Ynr8Knqe+Kl6g
nhpeYn3qeBmvkH8VN6j/NF5j/jP008RnmX8db5C/hTeZbwtv4zb9nMMdvIO7
5DuPd+lvD0cvhffjoZe4/3EvTuE+8vXjwy/x/bIvhfUO4MxL3P84S74hPPxS
2O8IjplvlOtjePwlvu8cTxCfx5OsVwFPUU+RfqdxifEzuMx6zOIEz7FfFTxP
/ipeoP4aXsJ1vEy+FdZ3FTeo/zReI/8Z3GR/zuJ18m1QXwtvsj9beJv4Nj7H
/B28Q/1dfJ58u6zXHo6WeP/jnqWw/l6cIr4P9xN/GKfxwFLYbwYPEp/FQ0v8
/I9Hlnj/M34Ujy2F6zWOc+SbwHnWYxIX8BTji3ia9SjhGVzGs0v8/I/nWK8K
nsdVxi/gGuu1hOv0t8x6rOBV+mng03gNn8FNfJZ61vEGbrEem3iL87SN2/gc
7uAd1q+Lz7Neu4zfw9GpsN5DuOdUmK8Xp3DfKd7/+PApvl//VPh9+AM4cyr8
PvxBnD0V/nrhEB7GI6f49X88Sj9jeBznTvH+x3n6ncQF+p3CxVPh3y8wjUvE
z+Ay/c+yfgmeI76C5+mviheIr+ElXMfL9LeCV5mvwfXTeA2fwU3W6yxeZ74N
3KL+TfZ3C29zftr4HPk6eIf5u/g89e/iPRy9HPoQ7nk5rL8Xp14O17MP95Pv
ME7jAZx5OVyfQZx9mfv/5XA9hvEI+WM8Sv1jeBzn8AT58niS+AL1T+Ei6z2N
S3gGl+l/Fid4DleoZ55+qniB/mp46WX+fhO8zHwreBU38GnqX8NncBOfxevU
v4FbeBNvUd82bhN/DnfwDuvdxefZ/128x/zRK6EPvRL234N7cQr3vRLW0/8K
v/+H08w/gDN4EGfJN4SHiR/BMR59JTyPY3j8Fe5/PPFK+HzK40nqK+Ap1q+I
p3EJz7wS/v1DZTxLvwn9zeEK8fO4ihdwjf6WcJ36l/EK52sVN/Bp5l/DZ8jf
xGfxOt5gfVp4k/62qG8bt4k/hzt4B3c5X+fxLvF7OKqH/b2qzvMAv6Ye9tuD
X0u+Xvy6eni/pPDv4D78u7i/Hn5+fwM+XA/X+/dxmvrejAfo/604Q7634UHq
fSfO4neTfwi/r87zDX8Aj+AP1/n7u/BFxI/ij1LvGOt1KR6vh8+fT+Ac+S7D
E/hKnGe+a/Ak9V/Lehbw9cRP4Zs4X0V8K/fDNL6D81HCd1H/DOPvxWXGP4Bn
6e9hnNDfY3iO+KO4QvwxPI+fYXwVP0f9C3iR+Bp+kfVbwi+zfnX8ObzMefsC
XmH+L+FV/Ff/7/8BLxN0zQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.547525109852213*^9, 3.5475251234484367`*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztPFuMG9d1Y752pZWi1LJdP5pGTps0blJa1st6mCsxTqWkQMtgWxQoskUg
uCW8jmVzJQvJJoVhsG4RonVswk68K1UgXGcTIxvDFZBi27qbAvtFFeXP9oMw
sHHXaTcB+MEC7Ac/+HF6z73n3DkzvJwZ7WoNJy0BDodn7pz3PXPPvefO755/
5vE/vXD+mZnHzh84d/F85fGZxy4dOPv0RQVK3+Z5tz3ued47B7yMOgd1Kg/4
mcGD543pnzQMBgMNHvQHXpZhvS50+xrsZQjGt+M/ffyCxDMB7eWablNbakJP
I1yHafW/sd6HtUYFyrUG1KZLsNjuJ8SZVoce1PIlaPbBS2nYGHQ3N6G/eV21
qsAmwnorkPeqeK7viMLr7Yb++jJUyhWYm5ujbwUqtWXDMnShXizBag8Mphx0
V6uQn1s1uPotKHp5aPLlCEKqQb8Lm4pX9VW84zELm50utbaEPKbUqhchX2vR
9Y6WezWeklRVGGWvWVPMrziZzyLGBjW8sboA1146C28tzsDCX02qbwHP7yTc
BqxB3kuGbM76xkBZpAVlr+TrJae03NAG6mhZjLE2wCnMa3gcQ/zqAhPHfx/D
YwpB6sLVF4qaS/VV6PFyTjbW3yt/fRqvz4Y57EN7paGE1xxmCKxdsr4I9fK0
csmeyyMr+jguxdcXWFv4q2BpzU5WX+ZLr786paEphKZIOL4fsaaI3hUll+b9
haKFCfwEyzBCbmtQjku1WHVce+kcN3tEqJUpP23Us4+I9VVX75kI4OyWTxJM
MKBQqCOp+a5R98wSbbRKiLbrni876Bw1HhB0QqMpIz6KLT8hy7gUn3P4dJak
ZxjBDeWJAFb8RPiDl3GgUiJFKEsLniaXRuklCbJlyvezMetnoqPyPV5YYh+W
CfinwstgJknNGQN7lu+smUCYUGZIEwZ2OJL1uC9QUPVPCSVoHTwh8IqOfMGh
Q/WtjNbhcYdRDdO7AtYL+YdtOz7yfsMc9lJSSNgdsekEwaQjsAJQOczmk457
I6Q66ugS93CvoriB/253BM8MHp928BVB70iIPdsFiR63u0DtfHqTUWgPO8Q4
Zg1qgvmHh4O5HxiDUc0E+UAnVG3GQnpRzcnxd9tbRadgX7WWVW1ytqfJriEa
ZCjQczSVZjwYI/9x4k/0NtMfHnV0lLujXG8IPDGatMuvx91YTOAaiwp29gHF
CkUl7wqRQJhW1KLDmx4VWmDYPtFRyHoWNhy4vTuJfURBw1r8HnPc8R0HB487
umVGYtb9VmO1fhoy2/ccWjCayQa8ks49Ebx3y8HB0POD4fb5vlt7OzZz3eaH
3Ul2WO5ERo+THMtlsOCmAuYT9DEgckUwj39yQf2w5mV4kOr8ocPp8o4Y8MBo
U0hf5uYyoDJsPCQMqkuow2guqCVtDbIyu9su4Tw8cssJGMdOSN6d9o7ulPr4
hffxun/5FmH1cw41+FcpzUD7voHp1NEMKGPTPONYe1Tq0oJKsQyNxRqUKkug
M0+bPv4PrNanoTTXgMW6ytXmm3FoDSsf0uwtlz0oL+s8EVbn8jBH5zqL7DdV
VkBZJLSh5E1DexCf202MSCLfgK/ni7BCKd5aPQ9etUmhAUXtQNXD631oNaYV
oprKAreWSeZg8yf/ongvYkZj5FF5arHaTJPeBxvXKTIWYbUz0BrLWhq/J/WE
nHVVtqk46zDnReScYxomUEtKjV65DvXKNNRWNmMt66Puw2IJTWBwG3NsWJ0M
UOtFWNMXMUFNpJMcc6b9pgKLS8ZvesC5bwaa88okKr+bnyvB3FI7+YxDH7rd
nhXdnw1J5tIfzA77c3H9F1Pq9zX4KldVwVeHz4TBd29M8FW9odWA0nQNGir4
luebml5cB00cgQHp5GFFd7ge1DBcdXcqAg82lsDL12mqrw/zeQ/qrd6tjcA+
MYzA09Ds9KHTmteRuCXn3vRNNxmJVbhEs3ilOahVq3B9rbPdSMzCb1yvKN3o
6Gu9aSvhl+c/1pfrUFRetbiyhvDks5h++M0J2ObGpojuv2hd+gNx/f+lSnTd
FX73xNxjPHk8LtRyet1Sw91aq2cJ3YpI+9/dTWi327C+3oalShHKjVVc4dmh
SNtuqLjllaFWq8J0UQUsJfTyen8nIi0qYFONS+sYuqBdLynVxS8wxQRcOYyu
1FehNT8N1WY3bhjtjLDMysb1qr6z3uomfDZHRdi0JVdrxuNzhdc4p91KR3mC
YE/MvAWnCwv4ayeNJMzodxyuLNyAR4tX1Pcq/P7U6/r6585d43bpkeh2S5im
jag+d/aa/hXXMg4U/xgjQBpbajr34JlqcmZyQd+N/36ZYMgv3/Z9gVEjPE4O
xELhV3H2q+QqEsznirPdljrhJ669w3j8wWi2eaZY4FWiGDzfKP4ZLBRm4a2Z
eoDPEAqe/EX9MYoz+pjRJmJ21XnOoRWGiabefoKhRV8sXEYucPqpMJuADfQI
xnMSj3sdhuTBhnQjdc4ex56kfr3bNSyrXWReaWOBvq9PPRevlfGABhAti04k
Upqd7JBDqtvUCNvXAks0JmCESokRbKdsadshLm6XIhjTQQZ/i6TDdqRp/b12
9itJbM7SIbsfdeh5v/RLUrJulie62PhC4Xl4VdG8WnwGbiz8MJauxneUEMgO
ofV69pr3oL6mVQCvFC76Qp37qnXojxB2dW5h3wh3RhZT+gMTRn/wXVtLRoTT
VirlL94J7b3KEko6FiPBmoeISt4x8tZQTDiE4FOEXinO4ohYLGX0xdPGcOrX
oNdOdIiuoiVIaSogGQILk7OJCWgLMdfsD/R9KKR4xH470WAD4b+9Qm9kPO9O
PItYEWXpWFHYEx52uOpDhkmF7F5yFVSf8nn9i98rxUvWH7UTY62DaKN6P0eB
BPxIbfPSJRr4Lye/zs7HbCIB7oBxmLWa+cnJ/ogdgFc1BZdRyA4JlsTDhTFL
V+Ql2qAZNDrGIjuGOrerOaKjJeCFvQZVpwgzL8IGqmcNY47oWezcUlFcOyC1
fsKKSMiSDtyZgPQ+JpCQbzN82xU93r/xz1BSdFNIXLNQgXWqw0iNYku7Cq8i
ywh93MEgMZN8Lkbxu9aA6eoy6gZ66yuw3HbOjlgbiIDq4uAhyzNflRYi/m4y
xfCH03NQWVwnPxvm8SG6InvDCEY4liVU6M1lKTyZsjJXgvlW1zqhySMeJC5l
b1PkmTpHTfXr/Yc0Z8xUUQ4G/T4MSBf9tTp4pSX877Imiy8dnsevIrzj96DD
538Q5ityxh8zqmrDVLltLFd4Pm4kX773pB1P4Ly9ENsb3cmUn0MO9CoTryjX
V91rHKNdJagr5TIuXUUEJceyQ78HfUdlFg8iUzRsRLvx6Ff9GnBWjjetWSdC
uQvCxqm9TJzwuhpvGhIpStnEeNcOVuUglJ99QxHA9fBxm4qXmJE+iapGarbb
Zu1DfWHyon2ws6LlE2EpiA/BTnwcBuSA+aCD5wC+jOWPvocd2jhGFPjhvSCG
xu8abObxNqGxyOGVzIYZJWeCLmMIK2XCKfSodNmVPiuLZ0XCwZKkSZLwGB3p
nbIOzZbexqP9SSLEzeVAn8fkkY94F9KnbKMHt8/hU47m745uzgIxRbyNKSe4
Lco5ZQBaGo3KDFxyluErpy9atSrPPGiUoxBJHBqFvvMOHXNz+hYhs8athDAh
ORPwcfVNISAjkgEUBAevpv0e+1jD+1A3mJRI1PiLSfqfF76GAkbI96j10AH0
er3A4pReDDNV7HZEJWEmacgEBFPfjxPjr56cgRdPzfqzFklhJraMa55Mcf0A
+n1+GFs+k7J5RojI49ZUQtgdozX3GX3cp8ejZQxj5SpU1djrepsq4WnZb7FW
VuOstgtmNShTKvX5qNaFyvJOfgmm9ivU+wvw1WNf1kp+9hOHoHD/WZi669fg
scMXbgqm3IQeHpjLdWG5hg/sIjzx8AzcePXqlsU4qXHeAc16SUZ1KC+tu4fw
yWD749x2H/S6NFiEDajkK9AeqF/V7roeO3WhqkY4y50fO2AD7x5SvoiICDmg
lX8H1A8W4Dfu/6JR3MMo2CGo4fnJP4D7VNyrJYWpc2XXE6z3fhM+ufez8ApR
3I4EJ0jvuPLbKJdheaOvr68u/ZMuOAlmKu85shcXbDNC77+tjziV2NebJZo/
WVFj9qrZpoAbKPIeVN/+u2FYs0v6zoadXT8DTGCbsAGMP+EnmXyimWFpLhx+
+Nx057vsLRgzv3X8DDzwm3+i/798rAD3feQPzbji9B/DYe8AvP0PVfj1z9cM
e6/U4dOqh1Y+fQJ+5WPkB6e+qGEqRTlJ3gO9Jpy+7zy8bCRKbUNBJ23X3IBq
aQ5LqUAXPQ1lccsJYU0vwpaf1UeT17ZVMoiL7f/2r7gHiVf4AZrVIlRfe24I
Vmt2C8Rtr1XDNE1fcm3B+ZtaMhjuuzlJbKJSS3m9IkVhects6gEWzl53lqFU
akBXb+MJZZnPvpYMVm0miEntpTkbAeebysi91YC5sWqi+qO/H4bZPhIcH91P
iu636lbRro1JP1pJBmtaRWd1NCqZqgX9UbzThMqem+Wdg5H/pDYFIosbHUee
/XZCWEDhWt829K/NQ2nuOnRMuY6t7TBBctMEzPf+fRi2SaFfx5wDxPWg34XW
YhmKNaNg1/6rdxLCNgBsZB70YXOtAXnjzEZjW2ec0S5Xq6DXt9XDYg6z7bWO
Y87gnYSwjVin/pA2dGOaH+3TsNY3k12lch0W6/7QIAS71+HPBwg26LShUSlC
qc7r3r8U3lRmHCEBTKaaJo1WMg06sKLaefdNwYt2cLwlMewIBzqrMJ2n+0vz
tH9yaFokKSxC8Wf1Mas9yO9RWJ028Afo5r/+59L0Jwgmt6ilRsJyEiYnA/w0
MX2TTJ1imB61h4boYsYmKSxiOM67wAqzrqUjV5qaYC+dbP7e6Ob6mHDVfx/B
PO+P8HDb6Ltcc+su2N4daZfRMDE2ntgGSt5G4ypruFUi86yfnJ1wzUDujLri
20XsMvogWFqobduW9us/dsC+cgLL7iWkfooDFzMj7KcFOEciljElW9y1MyE0
CHPVcP6fcYlb1+797PliFs3j2TM2s1xKl7A9CdtlxWwc091OdIkw/e8khOmh
2ZiD16N4dGG+dzRRXlgenscNlig8QvRknUXE1k0qB1P3XNL/x+3UJX9xQpWR
KQOmSdvhiQCM5jxhKFDgBrahkok9NJmAqC2pyYuBiQI5a4ozq1mL+1JiuTzX
Op6ZzBMLFocEFo3EtYb/pgN2KJ68jIVcwiaHPZcdbCZAK7lgtHJx6LK1agSy
v43gR0znJOFHsv9mEtq+273pQBFx44y0oT+pzkqQUYxlGWUyjXjGYahj5qrC
c9lxNYK5gkOWBxxcmJWzccstr2Zx6Q8VRpp1zl2BdU4sM8HbRDGgX5lHCuC6
vJxdNcsQJibIhGShHy2yelwFJ5bY7ANBLqAXYtQb0s3RUHNc8D9AfVo+Fz7s
iONc3iaWEL3jeLwYT4+dBLEewaNW/inHKuApsoqMQo5FRV6UZu3TuqIBT1gD
OCp1NQbZ2/gFDq420sBYfTImDMwcO/YSB8R/2MrrUh7FjID4ukt+Cq/mYnDf
TU9xjtW0ArbbEe75cS0eGXYpXXLF/s7L/WIZNqxSj2sAhDr0B1Xlqh/lScoo
04RKuWT3NChzAXKOGmxX/2B3euHcs16cZo+QWeUTSil1LIQK48rHHbBZY0JF
4zSefSrGZUTpaEaWUqItXw/ZB3WukYaLeF21EnadXh1FCTWec1NZRc32Qp2T
Bp3unkBxunKCpFBK/E8NzkobWGkejMMWLEvkVy3I/lswWjTezV6FzUzVcOKC
vCMWD1ORD/NCSAgsxuRrJMROlOPZd6UIBxupBLFqtDBz1V4j9nagQM/F3X8R
bLjyTdRuuVZrmklL7oYNJfuH1MRC8TI8Pfl8qOLa58O1yBFRShfi4zBxGBoF
fcewp/iZpAahGtcwF1uvsNO1fVwRIxXOZbRSMcxN6Lk2xM2tqqvjCUY5NNkU
KhOzDZRC3MoKOqYuXfO7Dq08QhzJIphvn75EHG2lbi7AgXbT71qPYGoo/7eR
kvpeKDwf91afUBR0yVFwwBKg5eRP/Xo/dagsDoWW76f2TDbXraPMMBy/0jqs
zpvwGkV7nWDDETqINgIFl46HXDGKuerUN/UOEfWbBLN0KXXO6uU9Juo3CRZZ
UqX4YywvF7+iFaV+47EE7cwvFhpynyETupDpRt8zZ8KjUV/PF75mNj1N/cWQ
I3CdtBxUMaIRXTIUNiMYY+RS40pvRlem5BQfA9jbFowaowYeHFBll/uZQPWt
wiVp11hUWmNvjBTUbA6iDUC2k0Qgta8WFH2KX6vlqJ6zwZfvE8WtdrJIZgX8
PsIwrnCVCeqHcdtXdokpizdCTuKXdrIGhfbsW5+mnuNZOjNDN1JxnAJ+U2xE
U6zkg/gWzHy3j+9ndIGHzvNmv5KeJBP5ku1z7AXqWoqyLQwVNluevGjAY0Nz
dtiEdIYv55qp5+h+nGUTbhqenverdpxaOUImuyoK1Lkbyaild3mK+Y0Ree3d
Dv3yRnKZp+FHotIbIE168LK/aw7ftlWYlTmC9l2cgPSnEW28ZSUqiXnNVJYw
BZQ3asoTPW20FweHH/YlcmKqNiXUSTOsxnPPkHRiG6f3Sce8SET+/2OJRxId
0pLrxlCCVsBjltTkql0213YFNggIHwy0NZoI7mQLLQV5aYdWSdikOdW7Iecy
0wV4HNcdUGw4tR0SE38VKNJ2hueKnB1jn8NQQntuvKitCFmBhifYVLs03YKY
pYfj3BsnzWLnNbZhyoiJ5QsMXG/tixe46DXUXWlyb4ffxxCTqW3z/Qsx+Vfs
Cxdu9r02Ua9ZSKSEn6sXLujrXzLX9Tm9iN277X8B2He4rA==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.54752285967589*^9, 3.547522893582488*^9}, 
   3.547523087659533*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxdWXlcjdv7LWMqxBWZDzIlypQytTQaU4ZmzaW503zqVOcckSSUIdV1CSFj
uagMl2NOXIqLuIYIJUNFyPz1+/ze1R/XH3yWfdZe79r73c+zn+cd5BW2wLeN
iooKfv31f//+/59G04q8nNxjo5pMhf+AfchT0/CuxGq4O+FJyjxLYi2kqpj8
mN2euAeWezbf292FWAeRia/T8pWNAu4HzQqbWZebiEVIvvK+m15b/n4wkJUZ
N6KU47o4qx99qu3fxMOQuPpJ7o/1xCOg/eSvZcvciPXg/NPt3D53Yn38+Zvq
64xY4jFwj+lqZRZDbAin5Wp38nyJx2JCwVvfTynE4yC/PHrXglDi8dCYfW+b
mZh4AkR3XholhhNPhHzBP3vtHIiN0FV+cevWYuJJqPvXoaPvUWJjpI0ymqY+
n9jkP/NPxgz/kjTzVjzlP/NPhXhaVNahYOJp0La19ut/kHg60tqsFEW1rqcp
Etvna3l14HoDth2mepreFcblgB/MnU0tOD4DI7PG+yvsBCyfgWVF4+dfred8
ZkjrNWrxsEEcN8P49K7HzWo4bo70Hh3Hf+vMcfP/8C1w0Wf4hhkt1LdAo5XF
u7Nq1LfEzJbfl0UbkG+J5dZ71+zR47gVHjkPTHd6Rr4VLmoOswyu5PzWWGh6
wsNAh3xrnMyZNbr/aPJn4s2a6avfz+T4TJS0uynqqcnxWeheZ5Fv8IDzz8K2
vWZ7Bq/m/LOxoGxvsziB47NRErrFdbcFx+fAT/ODadhQjs/BA48hqzStOD4X
s6Y/SN61u0EYn4tUqwGyju04Pg+hgU5f8lTJnwd1y4e1JqeF36vYwGjgnwFy
bY7bYN2x098cBpM/HxM9go2bvnH++dC0TrgV8Qf5tvhjvF2f3sMEDFvoHL2w
83wEf2+LESL3N9+tBKy0xc/kASeu+pFvB9X1l13KWsi3w7WQZ5EdF5Jvhwad
Ca5vYsi3w9myal3LDeQvwOz59yfWeZG/AF3mLng3toj8Bdiqf+Rm417yF8Dt
ZHliWjr5C1E3x6hoMtcDC6Hsqyh64U7+QqiavHUxNCF/ITZsqn+4cST5i7Cj
QKJ9eQ75i9Bl+zH389rkL8LnM507m7uQvwgjq+xMd40lfzHWRz96q2lJ/mL8
eHn/RLEt+YtRuyyoe8ffyF+MjIeFhgYtbwW+PebW6q9c2498e2hVdr3b2Lr+
9hjn1GFuiAX59ggsb/psNZD6Dih9urf3n0HkO+DbvrpV3c4K88sdcOfH8bWF
9Kd0gJq1/ZT8duQ7Yt2N5LdvO5HviGtmX+Z1H099Rxxf2Nb9W60wn9IRkRrG
1y4OJt8JDoPqco97kO+EF79286g++U4wf7wvY8UY6jth6prbd1aak++MAd/b
rN84gXxnjLY98mTpCvKdEbn0+8LftpHvDJdaC5P35eS7YMJy4zT7V+S7IEhr
bKr7XfJdEFbWdmP0AOE8KF2wsNa2z8568l1xr/0y86qBwjhccf986JUhrefV
FVdXbruTOYR8V7yr3ixynsXztQSSgj/mn55D/hLUzN3gladP/hIcflIyWWpJ
/hKceKhnNTWZfDcsH/kyKJh6cEPs/R0rC13Jd8Pk4IbnTanku2Gt9Hnu9kTy
3ZGuP/htvYh8d4zxKv6Sak2+O2IfdV87Lp18d7zo3byhujVfeMBNRxnab4mA
RR54eDpe57sP5/NAwJbztZpTBezhgYSH1w/e6c/5PfDxxv1HPow/eR5IUmgM
+/qa++WBvBuzNE/1FsarPbB6uF/mX52p7wk186NOqp+E34s8scNBY7Me54Mn
cnOPlqVcE8Y9PGF/d/PgZ7rU98QQyy6/NXSnvieauv9UL2hDv57QV3vvtb1G
4Fd74n79rZGp77n/XiiZmdi4/zD1vfDRyv/I07/5PnlhY8vsDJWz1PeCc7NR
zYFO1PdC/4I/i3/j8+d5weCs+cbQ1vPmhXc9ptXkMN5Ve+GT1Z8hJz2p7w2r
2uqb145R3xvfQ7X7B2ykvjcmn5dubpRT3xvp1+2G3CFf7g3Tsdrprn2o742d
k8LbqvSmvjfmupQXO+cI57faG+oNwZLnIur7YOcqmXwd46/IB//euKr4XCn8
Hj5I9zx41OKugD18oPLIKjN0L+OLD344RNzpWyPgPB9c6X5NUsz4pvRBh9Nh
Jnpd6d8H9UniHpcOMv754k7G/vrCLwIW+WLSqVGVinfU98Xp3DUZ3brTvy98
3sj6PS6ivi/8mvPt/xxF/74ICdA+dqE//fvicGlhh1sO1PeF1a4r/XIM6N8P
OTce6t/9h/p+SL0vCVjF+PbrNpRY9e1s92Dq++Gxyv1HhW24/n4Yp/7hk7eC
+n5QG/IoLbh1/f0geR1rV/Od6/+f+VWWYu70ey79e3L9l+KFqVn8UO4nlqJP
gKtn6DjqL8XFUa9ePDGk/lJ0nrG+uO4T138pim/EHHI3o/5SePZIUZueQf2l
0H1cFTnmX66/P0ZWXiqu2k///ii3c+pZyXwPf9R3cQoweM/998futiYpe0yp
7w+lOMVm9mj690eIi+yLmRH1/bGpbdZ6LepV/2dcJQB78gZ/2axF/wG4a1W3
a/xT7n8Aeq9Yf9rsGvUDMHjPi3cO7akfgNTXWtfLb9N/AJ6/rZkGVeoH4N+3
t1L2O3L/A3CzdLnREr4PKoGwF6cvHe1L/UBYqHwNKcyg/0CM+1u6q98urn8g
Lj+teBa1nfqByBDn23iX0n8gpnf+3bH9FuoHYnLT1UU6jC/Vv+a7Gbrpwh3q
B6Hw+nD1CHvqB+GiztxD09oz/gVh5D8t7vEqjL9BWNnw3u4175fyIKheD9Zp
U039INRpSTYeLaN+EDrrapyz4XzVQQg0GCX5V5PxNxgeDWntTXUY/4MRJDFO
9jajfjCMOlXqufI+6RGM5KGZP9/3on4wSj+++t2Q8TAvGJmHO2r3Zn5QBmO1
feX5McOpH4wb7TsfGWhM/RC49P/6fTzznygES78VG2czXyMEmXMken7dqB+C
yKmW/p/VqR+C0z0nRTfy+fNCMLLkbi/pAuqH4PKLgqde86gfAu8RY6K7T6R+
KJT6NTdvm1I/FHHvFr9+bkD9UIQPiJzz/An3PxT2Vdtv+oyhfig2/7170/1F
1A9FTubfz6XML8pQ9Pupn395NPVDYa3v217J9VEJg/PgF0OD+T6IwmB+6eTT
v/pSPwwf3+i0GwT6D4OefsESY+ZPeRiyawdWVdtTPwxj9zadLGZ+VIbBa2fD
mcqe1A9D4flTMcdHUl+Md7fuH/80W8BaYvyju8XIyZDrIUaXdgqn2dxvQzFG
7jp78gzvDxBjUaWnw1/Mv7ZiKFefEmXp8XnFaL5fPiGf6yMWI6NH4MQz3F+5
GNHZ4R92mgs4Q4zg1z9eTxxHP2KUvBi37XAPAReJUfQ95stTvs9KMXa11GTp
8f2oECO5IDD2Cu9D1WJEpK63z2f91CiGfn7k1va8n6mEY8i+AH857wta4fh9
UdqZGXy/ROHQ9r6UHU1/huHo+6XzlU/ECIexQ7ZJKOs123CoBWjUqvO+6BGO
yaHBzr34e3E4Eo54VC65zvgRDvvZfcdm8L6bEY6Pjxe1vcR4kReOnuc9F2fl
C7goHN99r/imLuX79Wu+xogbRxsFXBGO/p9s1m67zXgTjrxGxS0D1k+N4XiY
UNhtbijjTwTSc9YNuMx6SSsCU2XOTql8HlEErD+ZfzzIes4wAua56+JcWK8i
AsrD9scuVwjYNgLbP3TSV27leYlAlcWINeazBCyOwGnpFOcbrfkrAoNSzqs7
8b6TEQFJ9vS3NiX0HwGZqdqOAXyeoghMNs/MUm2N7xH43vPZva+szyoikGj0
eEox81d1BAoN3rsm8n7TGIGS+/LbqUn0H4k2j8es8i2g/0h0thwRtHE6/Udi
45wQNxsJ/Ueia61Z7HjGa0Ris9Yqz28/hfxjG4nrZYcK2xnTfyROZ/ayb+R9
UhyJmz+mK29k0n8kfA0KhunRb8YvXLdny3HeD/IicTgh3KNhHf1H4mjNpVk5
i+k/EpOq5px5F0b/kejU+1FK3+P0H4nl754YFO+j/0jYBA8vuVBM/1Hw6Be+
rVBK/1Foo2G/bvE8+o+Cj6+08BjHDaNw1OnAsFV8XxCFme67fDPPcf+jkPH3
7sFf/6L/KKgPynPceYr+o5Cz+9V8u2j6j4LxhXsLbyXTfxSGRaWpbJtG/1Ho
N/n2tFG36D8KutKDk1Pv038UHI3Lamt4/iqi8DbWdE8ax6ujMNnh05kG5uvG
KJwYqD39kQ39RyNuxRKNNlxfrWhcT9Pq/eEe/UdjrN3NTGkd/UejIURTfxnr
EUSjssEn9fES+o+Gweqy9x94fj2iUTamZoPDAfqPhltOu7OGPM/yaFhLJ5Xq
fqX/aPiazcnKfUj/0UiX/dtuCp+nKBo6Xfy7DvlB/9HIk/8MlbBfUhGNRSv2
DYjh81ZH423yk+YeN+j/l77dw76zWB+rxKDdghMHUtbSfwz2bbqtOL+e/mMw
yeFDin02/cdg7My2s+NYPyMGlj+clr5iPLaNgU0Hc/XCtox/MXgflViWzngu
jsGdczlTqllvy2MQ9bWvwv8N/cfgWPYHg2Cub14MfJq/nXF/S/+/5r/TZ9T3
joz/Mei2qXbXLebXihi0nOn4xTGL/mMw5syHxNF8vsYYLArUj0xgfakSi0Ef
foontcb/WGg4ywxus14VxcLRoEMXC0fG/1hodeieuYj5DLHYvXXyq0Um9B+L
Rx0fjl0SQf+xaOnobXCS/Whx7K/7dqBlXyP6j8U1a+NRd88z/8WiKfUf3y3L
mP9iUR4SKy3NYv6LRWxPi+ISBf3HouTN47H/sJ9QEYtO8SfE5eyPV8fiNNRW
x16h/1jIlszMvFxA/xIEK11vGV+mfwk+TPz5buU2+pdg7/XQy5/IN5SgUaWP
jecN+pegJaTz1t6H6V+CiIKPaUNf0b8EkvnD51SpC/1UsQQzO6TWxGqw3yrB
7jCvJY3n6F8C1cDeLoW36V+Cz28PHFzL9SmSQNkuV/X2QoGvlKDUeMzoQfze
UCGBvcnPAf7jBFwtQfPm/lP1+H2iUQKdDZka7l/pPw4FRnUzzmoL41pxGHSo
ci44LoqD8cg+NuYjhHHDOMx96dtL9zX9xyGwQvOojP1i2ziknnY1b7lF/3GY
FjKy3r+C+x+H6Z8vTLE8yf2Pw45Al55ay+k/Dpuc7890OUX/cagaXbvvwwv6
j8Pi97OPm+/j/sfhrP3hsZmruP9xuK2tsSnnGPf/1/wXmoJkUu5/HKRHPkTP
W0f/8chzjqgv5/ukFQ8nzb3zDW3pPx7lzTpKEe/vhvFAWK3P5rn0Hw9lesQe
v3eMf/FYEbzufTnjrUc8Tset6aXSwPgXj++yFuMc/l4eDwdrtWsPH/D8x0PN
9f3VPBnPfzzMH05dvMWO5z8eTS81n+Y/Yn8hHrf612uvYX+3Ih5d1d0cDFN4
/uPRz+fkmcu87zTGI0ajl8NR1tMqUnzp2V95UYXxTwqcHb7emfW6SAq9mY4v
1rE+N5RCbeOxppXsH0OK4vmqcYrPzP9SPP/jmnRpa70uRe2JCdsNKoRxsRRj
vo6tOrCb/QspVg4w6+pxX8AZUny/WyqpY78l79fznO/fdz3vT0VSeGzvN9XA
jfFfivwPBbWjmoXfV0gxeD/aO7b2G6To+6DTsTfD6V8K1X/mzx+XRv8JWGBx
IEmV9w2tBGTH3T10jt8HRAnY6tLLfCP714YJeJBV4NvU2q9NgKrW/kkNGtz/
BEwvcUq6tIj+E+BqM/uzRuv9LwHPpIs3Bftz/xPwZ9/9K/byPpWRgPqto274
s3+TlwC9AyN1lj0X/BQlICH/innruDIBIeqmobrs/1Qk4ORku7JrzO/VCfh5
+dL7J/H0/+v5nxmVGbAfoJII+6nXqvpOpP9EFGgX6l3h70WJ2OQgDzBSo/9E
NDbYl7rl0X8ifNRb0tJ5f7VNxMq+nh8H5NJ/IiQP25comY/FifD1jtzZbgf9
J+LIApV0febLjEQkZwfP0mL/Py8RcqsnD8p5PyxKhHH6VXNt5m9lIlItRGHZ
v/H8J2Ls0K1Wqq391kRk3ji8sRP7n42JyC1s1xxfSf9JGNc72eU76xWtJMwf
d067H+tDURIW7Dzo94bPZ5iEqFdrdyj68PwnoV+YlfhYE/0nQd3y6Qtn5nOP
JNgM/v3ySdZn4iRcXTYkK1mN8S8Juk0/n5mwvsxIQn7vG9dN2B/IS8LG3fdW
lLEeLkrC04OvZrjyPqFMQkq+w+EkxqOKJJxKcHs0jfV9dRLcAyrvKuIY/5Jg
3C8KNWGMfzKMUP+kcZb5U0uGL/4+Rhf4vVgkw5FxGRq7vOlfhodrelpEeNG/
DGqmHm+ur2T+k2HoBc846yTGfxm0pdtyCtivF8vQyzxXP4T3AbkMB0eYSy65
0L8M1xd9mZc5k/5lmJJ9rKMu+/lFMlSeeOJtx+/VShnOyG6JErkfFTI4dLhj
cIX9+2oZjIw7r77A+02jDN+y/siJvsL9l6PMQK/HCvYT1OR45usxsP4Lz4Mc
ar+XespZH+nIsWXaOpfB/J4okuNMtkxy65CAR8hRWFY//yD7JYa/5m8OxhjW
G8ZypI4+Ocz4Is+PHNfKB70qZ/yfKcfnwM0LZcO4nnI0Prd263RBGHeUw8Tn
wuGo1vpSDs8i6/a6mwXsL0fFwaSujxN43uQ4+XKi4QN+H5PI8crVQruZ9ZFc
ji47thrtZ38gVY6w1/LinGbGIzmyf6iWrGZ9kC2HOCtx2kT2I/LkSIm/+vLc
QgEXyNGnoMa9TRT3S47fJN0vtOX34lI5hos0K4I2cf/kyDMzNNNh/i+Tw29W
p+TrfN8q5NDV/zBkJeuHKjk2XcmBCft71XIEjH5g2obfQ+vkqF+4d/KMzjzv
cuzMGnpUZiPEzxY5PJwHHpd9eyPsvwLrKg+esFIKWE2BiEHL7bVyBaylwLkv
1fsmdhGwjgJ9p2X0ShorYJECzZcCURYu4BEKaE5I2fCNfEMFnnXZ6WSyWMDG
Chzb22L95JmAocDxlbtv5s4Tnm+mAgMXfx91eATzqQK7y8fIYlYL2FGBVP/k
eTVi9oMV8Ai9/rK8o4D9FfB3Sp8c7Mt8q8At+cuSSyYCligw68D0JzEzmH8V
aDN6kvab6QJOVWD/vfgY96PMxwqIg0NuB0gEnK3ApWofkdpO5mcFun7pteLe
IAEXKDBk56URSeeZrxRIf+J1fWWkgEsVqJpqF/g7+wNKBXSirkmOsH9QpoBj
U2z+Gl3mMwUenLtqM6paGK9SwH5Nj+OlV5nfFbh51mbMZ85fp8DPIOnUFn4/
aVTg7+lLgvt0E+ZrUeDQ3VQnBe8XKstwUJrva2DeYPo/o2ez3A==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.547522864993535*^9, 3.547522920054295*^9}}]
}, Open  ]],

Cell[BoxData["Nonlinear"], "Input",
 CellChangeTimes->{{3.547522463528409*^9, 3.547522465916503*^9}}],

Cell[CellGroupData[{

Cell[BoxData["d"], "Input",
 CellChangeTimes->{3.5475223271875896`*^9}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{278., {2., 8.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "35"}], ",", 
             RowBox[{"-", "13"}], ",", 
             RowBox[{"-", "28"}], ",", 
             RowBox[{"-", "28"}], ",", "50", ",", "1081", ",", 
             RowBox[{"-", "29"}], ",", 
             RowBox[{"-", "16"}], ",", 
             RowBox[{"-", "393"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "60"}], ",", "6", ",", 
             RowBox[{"-", "57"}], ",", 
             RowBox[{"-", "15"}], ",", "40", ",", "1054", ",", 
             RowBox[{"-", "25"}], ",", 
             RowBox[{"-", "18"}], ",", 
             RowBox[{"-", "391"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "35"}], ",", 
             RowBox[{"-", "7"}], ",", "24", ",", 
             RowBox[{"-", "46"}], ",", "37", ",", "1068", ",", 
             RowBox[{"-", "28"}], ",", 
             RowBox[{"-", "15"}], ",", 
             RowBox[{"-", "394"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "19"}], ",", 
             RowBox[{"-", "9"}], ",", 
             RowBox[{"-", "5"}], ",", 
             RowBox[{"-", "43"}], ",", "42", ",", "1070", ",", 
             RowBox[{"-", "27"}], ",", 
             RowBox[{"-", "15"}], ",", 
             RowBox[{"-", "390"}]}], "}"}], ",", 
           RowBox[{"\[LeftSkeleton]", "568", "\[RightSkeleton]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "274"}], ",", 
             RowBox[{"-", "732"}], ",", "218", ",", "880", ",", "244", ",", 
             "413", ",", 
             RowBox[{"-", "477"}], ",", 
             RowBox[{"-", "234"}], ",", 
             RowBox[{"-", "256"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "400"}], ",", 
             RowBox[{"-", "144"}], ",", "308", ",", "911", ",", "220", ",", 
             "390", ",", 
             RowBox[{"-", "480"}], ",", 
             RowBox[{"-", "231"}], ",", 
             RowBox[{"-", "255"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "21", ",", "108", ",", "70", ",", "931", ",", "183", ",", "365", 
             ",", 
             RowBox[{"-", "481"}], ",", 
             RowBox[{"-", "229"}], ",", 
             RowBox[{"-", "252"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "346"}], ",", 
             RowBox[{"-", "80"}], ",", 
             RowBox[{"-", "576"}], ",", "924", ",", "216", ",", "389", ",", 
             RowBox[{"-", "484"}], ",", 
             RowBox[{"-", "227"}], ",", 
             RowBox[{"-", "254"}]}], "}"}]}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{49., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 6398, 23246988569317255937, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{52., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 6398, 23246988569317255937, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{82., {2., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 6398, 23246988569317255937, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{74., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->{Deployed -> True}],
  Out[6398]]], "Output",
 CellChangeTimes->{3.547522327490204*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547663162816033*^9, 3.547663229481235*^9}, {
   3.5476632726009083`*^9, 3.547663329582308*^9}, 3.547666018522888*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "th", "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Sin", "[", "phi", "]"}], 
        RowBox[{"Sin", "[", "th", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"Cos", "[", "phi", "]"}], 
        RowBox[{"Sin", "[", "th", "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"Cos", "[", "phi", "]"}], ",", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "phi", "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Sin", "[", "th", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"Sin", "[", "phi", "]"}], 
        RowBox[{"Cos", "[", "th", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"Cos", "[", "th", "]"}], 
        RowBox[{"Cos", "[", "phi", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.547663337709374*^9, 3.5476633972859097`*^9}, 
   3.547663476981604*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"q", "\[Equal]", "r"}], ",", 
   RowBox[{"{", 
    RowBox[{"q0", ",", "q1", ",", "q2", ",", "q3"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.54766339873555*^9, 3.547663406848876*^9}}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.547663407964608*^9, 3.547663480029978*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pitch", "=."}], ";", 
  RowBox[{"roll", "=."}], ";", 
  RowBox[{"yaw", "=."}], ";"}]], "Input",
 CellChangeTimes->{{3.547663788666007*^9, 3.54766378938286*^9}, {
  3.54766581808885*^9, 3.547665819025771*^9}, {3.547665852528165*^9, 
  3.5476658997668333`*^9}, {3.547869630151568*^9, 3.54786963197342*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ryaw", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "yaw", "]"}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "yaw", "]"}]}], ",", " ", "0"}], "}"}], ",", " ", 
     
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sin", "[", "yaw", "]"}], ",", " ", 
       RowBox[{"Cos", "[", "yaw", "]"}], ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Rpitch", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], ",", " ", "0", ",", " ", 
       RowBox[{"Sin", "[", "pitch", "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Sin", "[", "pitch", "]"}]}], ",", " ", "0", ",", " ", 
       RowBox[{"Cos", "[", "pitch", "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Rroll", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", 
       RowBox[{"Cos", "[", "roll", "]"}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "roll", "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", 
       RowBox[{"Sin", "[", "roll", "]"}], ",", " ", 
       RowBox[{"Cos", "[", "roll", "]"}]}], "}"}]}], "}"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.547665765873762*^9, 3.5476658490796967`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"full", "=", 
   RowBox[{"Rroll", ".", "Rpitch", ".", "Ryaw"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547665907030354*^9, 3.547665915822185*^9}, {
  3.547666505558763*^9, 3.5476665321518383`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "full", "]"}]], "Input",
 CellChangeTimes->{{3.5476659270205183`*^9, 3.547665928749427*^9}, {
  3.5478696364928913`*^9, 3.547869638883267*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Cos", "[", "yaw", "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
       RowBox[{"Sin", "[", "yaw", "]"}]}], 
      RowBox[{"Sin", "[", "pitch", "]"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Cos", "[", "yaw", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
       RowBox[{"Sin", "[", "roll", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "roll", "]"}]}], " ", 
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Cos", "[", "roll", "]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.547665929145638*^9, 3.5478696391617393`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Ryaw", ".", "Rpitch", ".", "Rroll"}], "]"}]], "Input",
 CellChangeTimes->{{3.5476669309664183`*^9, 3.5476669402827053`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Cos", "[", "yaw", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Sin", "[", "yaw", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Cos", "[", "yaw", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "yaw", "]"}]}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}]},
     {
      RowBox[{"-", 
       RowBox[{"Sin", "[", "pitch", "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Sin", "[", "roll", "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Cos", "[", "roll", "]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.54766694086335*^9}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"q0", "=."}], ";", 
  RowBox[{"q1", "=."}], ";", 
  RowBox[{"q2", "=."}], ";", 
  RowBox[{"q3", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Rq", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"q0", "^", "2"}], "+", 
        RowBox[{"q1", "^", "2"}], "-", 
        RowBox[{"q2", "^", "2"}], "-", 
        RowBox[{"q3", "^", "2"}]}], ",", " ", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "-", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], ",", " ", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "+", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], ",", " ", 
       RowBox[{
        RowBox[{"q0", "^", "2"}], "-", 
        RowBox[{"q1", "^", "2"}], "+", 
        RowBox[{"q2", "^", "2"}], "-", 
        RowBox[{"q3", "^", "2"}]}], ",", " ", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q2", " ", "q3"}], "-", 
          RowBox[{"q0", " ", "q1"}]}], ")"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q3"}], "-", 
          RowBox[{"q0", " ", "q2"}]}], ")"}]}], ",", " ", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}]}], ",", " ", 
       RowBox[{
        RowBox[{"q0", "^", "2"}], "-", 
        RowBox[{"q1", "^", "2"}], "-", 
        RowBox[{"q2", "^", "2"}], "+", 
        RowBox[{"q3", "^", "2"}]}]}], "}"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547666001195313*^9, 3.547666026813148*^9}, {
  3.547666400734786*^9, 3.5476664008138533`*^9}, {3.547666518236043*^9, 
  3.5476665245372667`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Simplify", "[", "Rq", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5476660288183002`*^9, 3.547666030482839*^9}, {
  3.547666243957652*^9, 3.547666299701579*^9}, {3.547666373506877*^9, 
  3.5476663887280188`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", 
      RowBox[{"Cos", "[", "alpha", "]"}], 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "alpha", "]"}]}]},
     {"0", 
      RowBox[{"Sin", "[", "alpha", "]"}], 
      RowBox[{"Cos", "[", "alpha", "]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.547666030867303*^9, {3.547666244901533*^9, 3.547666269739915*^9}, 
   3.547666300123309*^9, {3.547666376536194*^9, 3.547666402459979*^9}, {
   3.547666468946727*^9, 3.547666488037764*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547666251940419*^9, 3.547666252516333*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.547665951145623*^9, 3.547665953172805*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547665953586946*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"q0", "=", 
   RowBox[{"Cos", "[", 
    RowBox[{"alpha", "/", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"alpha", "/", "2"}], "]"}], 
    RowBox[{"Cos", "[", "ax", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"alpha", "/", "2"}], "]"}], 
    RowBox[{"Cos", "[", "ay", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q3", "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"alpha", "/", "2"}], "]"}], 
    RowBox[{"Cos", "[", "az", "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.547666102618609*^9, 3.547666170785488*^9}, {
  3.5476662641275454`*^9, 3.547666264823395*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547875476385097*^9, 3.547875476927169*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ax", "=", "0"}], ";", 
  RowBox[{"ay", "=", 
   RowBox[{"Pi", "/", "2"}]}], ";", 
  RowBox[{"az", "=", 
   RowBox[{"Pi", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{"q0", ",", " ", "q1", ",", "q2", ",", "q3"}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q0", "^", "2"}], "+", 
  RowBox[{"q1", "^", "2"}], "+", 
  RowBox[{"q2", "^", "2"}], "+", 
  RowBox[{"q3", "^", "2"}]}]}], "Input",
 CellChangeTimes->{{3.547666152595578*^9, 3.547666194789401*^9}, {
  3.5476662300144463`*^9, 3.5476662354461603`*^9}, {3.547666347845108*^9, 
  3.5476663575702143`*^9}, {3.5476664609370613`*^9, 3.547666483824267*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    FractionBox["alpha", "2"], "]"}], ",", "0", ",", 
   RowBox[{"Sin", "[", 
    FractionBox["alpha", "2"], "]"}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.5476661746546087`*^9, 3.5476661950283613`*^9}, 
   3.547666235831605*^9, 3.547666357892256*^9, {3.547666463914019*^9, 
   3.547666484123025*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"Cos", "[", 
    FractionBox["alpha", "2"], "]"}], "2"], "+", 
  SuperscriptBox[
   RowBox[{"Sin", "[", 
    FractionBox["alpha", "2"], "]"}], "2"]}]], "Output",
 CellChangeTimes->{{3.5476661746546087`*^9, 3.5476661950283613`*^9}, 
   3.547666235831605*^9, 3.547666357892256*^9, {3.547666463914019*^9, 
   3.547666484126193*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"Rq", "\[Equal]", "full"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q0", ",", " ", "q1", ",", " ", "q2", ",", " ", "q3"}], "}"}]}],
     "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547666500616375*^9, 3.547666515069865*^9}, {
  3.547666548386807*^9, 3.5476665548615303`*^9}, {3.547666615412819*^9, 
  3.54766661729949*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", "sol", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.547666569678688*^9, 3.547666571363884*^9}, {
  3.547666624360057*^9, 3.547666627530898*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.547666740524932*^9, 3.5476667428871937`*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5476669235376368`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["full"], "Input",
 CellChangeTimes->{{3.547666537819186*^9, 3.547666538410849*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", "pitch", "]"}], " ", 
      RowBox[{"Cos", "[", "yaw", "]"}]}], ",", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
      RowBox[{"Sin", "[", "yaw", "]"}]}], ",", 
     RowBox[{"Sin", "[", "pitch", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", "yaw", "]"}], " ", 
       RowBox[{"Sin", "[", "pitch", "]"}], " ", 
       RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "roll", "]"}], " ", 
       RowBox[{"Sin", "[", "yaw", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", "roll", "]"}], " ", 
       RowBox[{"Cos", "[", "yaw", "]"}]}], "-", 
      RowBox[{
       RowBox[{"Sin", "[", "pitch", "]"}], " ", 
       RowBox[{"Sin", "[", "roll", "]"}], " ", 
       RowBox[{"Sin", "[", "yaw", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
      RowBox[{"Sin", "[", "roll", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "roll", "]"}]}], " ", 
       RowBox[{"Cos", "[", "yaw", "]"}], " ", 
       RowBox[{"Sin", "[", "pitch", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Sin", "[", "roll", "]"}], " ", 
       RowBox[{"Sin", "[", "yaw", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", "yaw", "]"}], " ", 
       RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "roll", "]"}], " ", 
       RowBox[{"Sin", "[", "pitch", "]"}], " ", 
       RowBox[{"Sin", "[", "yaw", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "pitch", "]"}], " ", 
      RowBox[{"Cos", "[", "roll", "]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547666538698018*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Rq"], "Input",
 CellChangeTimes->{{3.547666541382696*^9, 3.547666541908543*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["q0", "2"], "+", 
      SuperscriptBox["q1", "2"], "-", 
      SuperscriptBox["q2", "2"], "-", 
      SuperscriptBox["q3", "2"]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q1", " ", "q2"}], "-", 
        RowBox[{"q0", " ", "q3"}]}], ")"}]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q0", " ", "q2"}], "+", 
        RowBox[{"q1", " ", "q3"}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q1", " ", "q2"}], "+", 
        RowBox[{"q0", " ", "q3"}]}], ")"}]}], ",", 
     RowBox[{
      SuperscriptBox["q0", "2"], "-", 
      SuperscriptBox["q1", "2"], "+", 
      SuperscriptBox["q2", "2"], "-", 
      SuperscriptBox["q3", "2"]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "q0"}], " ", "q1"}], "+", 
        RowBox[{"q2", " ", "q3"}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "q0"}], " ", "q2"}], "+", 
        RowBox[{"q1", " ", "q3"}]}], ")"}]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q0", " ", "q1"}], "+", 
        RowBox[{"q2", " ", "q3"}]}], ")"}]}], ",", 
     RowBox[{
      SuperscriptBox["q0", "2"], "-", 
      SuperscriptBox["q1", "2"], "-", 
      SuperscriptBox["q2", "2"], "+", 
      SuperscriptBox["q3", "2"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5476665421532917`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "Quaternions`"}]], "Input",
 CellChangeTimes->{{3.547667325539904*^9, 3.547667331087226*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "this", " ", "is", " ", "how", " ", "my", " ", "quaternino", " ", "looks", 
    " ", "like"}], " ", "*)"}], "\[AliasDelimiter]"}]], "Input",
 CellChangeTimes->{{3.547869744914281*^9, 3.547869751758952*^9}, 
   3.548911920748452*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Quaternion", "[", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"roll", "/", "2"}], "]"}], ",", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"roll", "/", "2"}], "]"}], ",", " ", "0", ",", " ", "0"}], "]"}],
   "**", 
  RowBox[{"Quaternion", "[", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"pitch", "/", "2"}], "]"}], ",", " ", "0", ",", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"pitch", "/", "2"}], "]"}], ",", " ", "0"}], "]"}], "**", 
  RowBox[{"Quaternion", "[", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"yaw", "/", "2"}], "]"}], ",", " ", "0", ",", " ", "0", ",", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"yaw", "/", "2"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.547667310336849*^9, 3.547667422705264*^9}}],

Cell[BoxData[
 RowBox[{"Quaternion", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}]}], "-", 
    RowBox[{
     RowBox[{"Sin", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["roll", "2"], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["pitch", "2"], "]"}]}], "-", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["roll", "2"], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}]}]}], "]"}]], "Output",
 CellChangeTimes->{{3.547667395055016*^9, 3.5476674229389668`*^9}, 
   3.547869755414287*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.547869756325386*^9, 3.547869757865678*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"Quaternion", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", 
       FractionBox["pitch", "2"], "]"}], " ", 
      RowBox[{"Cos", "[", 
       FractionBox["roll", "2"], "]"}], " ", 
      RowBox[{"Cos", "[", 
       FractionBox["yaw", "2"], "]"}]}], "-", 
     RowBox[{
      RowBox[{"Sin", "[", 
       FractionBox["pitch", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["roll", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["yaw", "2"], "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", 
       FractionBox["pitch", "2"], "]"}], " ", 
      RowBox[{"Cos", "[", 
       FractionBox["yaw", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["roll", "2"], "]"}]}], "+", 
     RowBox[{
      RowBox[{"Cos", "[", 
       FractionBox["roll", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["pitch", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["yaw", "2"], "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", 
       FractionBox["roll", "2"], "]"}], " ", 
      RowBox[{"Cos", "[", 
       FractionBox["yaw", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["pitch", "2"], "]"}]}], "-", 
     RowBox[{
      RowBox[{"Cos", "[", 
       FractionBox["pitch", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["roll", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["yaw", "2"], "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", 
       FractionBox["yaw", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["pitch", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["roll", "2"], "]"}]}], "+", 
     RowBox[{
      RowBox[{"Cos", "[", 
       FractionBox["pitch", "2"], "]"}], " ", 
      RowBox[{"Cos", "[", 
       FractionBox["roll", "2"], "]"}], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["yaw", "2"], "]"}]}]}]}], "]"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.547869758281146*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"q0", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}]}], "-", 
    RowBox[{
     RowBox[{"Sin", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["roll", "2"], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["pitch", "2"], "]"}]}], "-", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["roll", "2"], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["pitch", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox["roll", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5476674936051702`*^9, 3.547667524532556*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"q0", ",", "q1", ",", "q2", ",", "q3"}], "}"}], "/.", 
  RowBox[{"{", 
   RowBox[{"yaw", "\[Rule]", "0"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.548912309576264*^9, 3.548912317181305*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", 
     FractionBox["pitch", "2"], "]"}], " ", 
    RowBox[{"Cos", "[", 
     FractionBox["roll", "2"], "]"}]}], ",", 
   RowBox[{
    RowBox[{"Cos", "[", 
     FractionBox["pitch", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["roll", "2"], "]"}]}], ",", 
   RowBox[{
    RowBox[{"Cos", "[", 
     FractionBox["roll", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["pitch", "2"], "]"}]}], ",", 
   RowBox[{
    RowBox[{"Sin", "[", 
     FractionBox["pitch", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["roll", "2"], "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.5489123175623207`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"q0", "=."}], ";", 
    RowBox[{"q1", "=."}], ";", 
    RowBox[{"q2", "=."}], ";", 
    RowBox[{"q3", "=."}], ";"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"q", "=", 
    RowBox[{"Quaternion", "[", 
     RowBox[{"q0", ",", " ", "q1", ",", " ", "q2", ",", " ", "q3"}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.5503710954333277`*^9, 3.550371102498844*^9}, {
  3.5503713788756332`*^9, 3.55037138741035*^9}, {3.550372491303857*^9, 
  3.5503724933408413`*^9}, {3.5503729860411043`*^9, 3.550372988094315*^9}, {
  3.5503731087653227`*^9, 3.550373110499024*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q", "**", 
   RowBox[{"Quaternion", "[", 
    RowBox[{"w", ",", " ", "x", ",", " ", "y", ",", " ", "z"}], "]"}], "**", 
   RowBox[{"Conjugate", "[", "q", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5503711050174637`*^9, 3.550371125473776*^9}, {
   3.550371197857284*^9, 3.550371198807654*^9}, {3.5503718031352577`*^9, 
   3.550371803303693*^9}, 3.5503731388118057`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"y", "\[Rule]", "0"}], ",", 
    RowBox[{"z", "\[Rule]", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.550371844598123*^9, 3.550371845713909*^9}, {
  3.550371918059754*^9, 3.550371918235528*^9}, {3.5503720081299353`*^9, 
  3.55037200822517*^9}, {3.550372167308997*^9, 3.5503721674366837`*^9}, {
  3.5503724995560627`*^9, 3.5503725002354727`*^9}, {3.550372997703167*^9, 
  3.550372997741345*^9}, {3.5503731171224117`*^9, 3.550373163601283*^9}}],

Cell[BoxData[
 RowBox[{"x", "+", 
  RowBox[{"x", " ", 
   RowBox[{"Cos", "[", "alpha", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", " ", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "ax", "]"}], "2"]}], "-", 
     RowBox[{"x", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Cos", "[", "ay", "]"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "az", "]"}], "2"]}], ")"}]}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     FractionBox["alpha", "2"], "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.550371846104095*^9, 3.550371921469124*^9, 3.550372009179638*^9, {
   3.550372148801989*^9, 3.550372170443428*^9}, 3.550372500606348*^9, 
   3.5503729980727997`*^9, {3.550373117890854*^9, 3.5503731644230223`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.55037184787888*^9, 3.550371849437298*^9}, {
  3.5503731222183113`*^9, 3.550373125769978*^9}}],

Cell[BoxData[
 RowBox[{"Quaternion", "[", 
  RowBox[{
   RowBox[{"w", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Cos", "[", 
        FractionBox["alpha", "2"], "]"}], "2"], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Cos", "[", "ax", "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "ay", "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "az", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["alpha", "2"], "]"}], "2"]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"x", "+", 
      RowBox[{"x", " ", 
       RowBox[{"Cos", "[", "alpha", "]"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "ax", "]"}], "2"]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"Cos", "[", "ax", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"y", " ", 
             RowBox[{"Cos", "[", "ay", "]"}]}], "+", 
            RowBox[{"z", " ", 
             RowBox[{"Cos", "[", "az", "]"}]}]}], ")"}]}], "-", 
         RowBox[{"x", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Cos", "[", "ay", "]"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"Cos", "[", "az", "]"}], "2"]}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["alpha", "2"], "]"}], "2"]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"z", " ", 
          RowBox[{"Cos", "[", "ay", "]"}]}], "-", 
         RowBox[{"y", " ", 
          RowBox[{"Cos", "[", "az", "]"}]}]}], ")"}], " ", 
       RowBox[{"Sin", "[", "alpha", "]"}]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"y", "+", 
      RowBox[{"2", " ", "x", " ", 
       RowBox[{"Cos", "[", "ax", "]"}], " ", 
       RowBox[{"Cos", "[", "ay", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "alpha", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"y", "-", 
         RowBox[{"2", " ", "x", " ", 
          RowBox[{"Cos", "[", "ax", "]"}], " ", 
          RowBox[{"Cos", "[", "ay", "]"}]}]}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"y", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "ax", "]"}], "2"]}], "-", 
         RowBox[{"y", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "ay", "]"}], "2"]}], "-", 
         RowBox[{"2", " ", "z", " ", 
          RowBox[{"Cos", "[", "ay", "]"}], " ", 
          RowBox[{"Cos", "[", "az", "]"}]}], "+", 
         RowBox[{"y", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "az", "]"}], "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["alpha", "2"], "]"}], "2"]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "z"}], " ", 
          RowBox[{"Cos", "[", "ax", "]"}]}], "+", 
         RowBox[{"x", " ", 
          RowBox[{"Cos", "[", "az", "]"}]}]}], ")"}], " ", 
       RowBox[{"Sin", "[", "alpha", "]"}]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"z", "+", 
      RowBox[{"2", " ", "x", " ", 
       RowBox[{"Cos", "[", "ax", "]"}], " ", 
       RowBox[{"Cos", "[", "az", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "alpha", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"z", "-", 
         RowBox[{"2", " ", "x", " ", 
          RowBox[{"Cos", "[", "ax", "]"}], " ", 
          RowBox[{"Cos", "[", "az", "]"}]}]}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"z", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Cos", "[", "ax", "]"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"Cos", "[", "ay", "]"}], "2"]}], ")"}]}], "-", 
         RowBox[{"2", " ", "y", " ", 
          RowBox[{"Cos", "[", "ay", "]"}], " ", 
          RowBox[{"Cos", "[", "az", "]"}]}], "-", 
         RowBox[{"z", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "az", "]"}], "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["alpha", "2"], "]"}], "2"]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"y", " ", 
          RowBox[{"Cos", "[", "ax", "]"}]}], "-", 
         RowBox[{"x", " ", 
          RowBox[{"Cos", "[", "ay", "]"}]}]}], ")"}], " ", 
       RowBox[{"Sin", "[", "alpha", "]"}]}]}], ")"}]}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.550371849815837*^9, 3.550371922832671*^9, 3.550372010212892*^9, {
   3.550372153634366*^9, 3.5503721718289633`*^9}, 3.550372502836627*^9, 
   3.5503729997231483`*^9, {3.550373127040682*^9, 3.550373168400895*^9}, 
   3.550373369008462*^9}]
}, Open  ]],

Cell[BoxData["FullSimp"], "Input",
 CellChangeTimes->{{3.550371210938026*^9, 3.550371211982918*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5503711368862267`*^9, 3.550371139041665*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "8"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"10", " ", "w"}], "-", 
    RowBox[{"2", " ", "w", " ", 
     RowBox[{"Cos", "[", "alpha", "]"}]}], "-", 
    RowBox[{"w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"alpha", "-", 
       RowBox[{"2", " ", "ax"}]}], "]"}]}], "+", 
    RowBox[{"2", " ", "w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "ax"}], "]"}]}], "-", 
    RowBox[{"w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"alpha", "+", 
       RowBox[{"2", " ", "ax"}]}], "]"}]}], "-", 
    RowBox[{"w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"alpha", "-", 
       RowBox[{"2", " ", "ay"}]}], "]"}]}], "+", 
    RowBox[{"2", " ", "w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "ay"}], "]"}]}], "-", 
    RowBox[{"w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"alpha", "+", 
       RowBox[{"2", " ", "ay"}]}], "]"}]}], "-", 
    RowBox[{"w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"alpha", "-", 
       RowBox[{"2", " ", "az"}]}], "]"}]}], "+", 
    RowBox[{"2", " ", "w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "az"}], "]"}]}], "-", 
    RowBox[{"w", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"alpha", "+", 
       RowBox[{"2", " ", "az"}]}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.550371139444599*^9, 3.5503712143634443`*^9, 
  3.550372511316876*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q0", " ", "q1"}], "-", 
       RowBox[{"q2", " ", "q3"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", "^", "2"}], "+", 
          RowBox[{"q2", "^", "2"}]}], ")"}]}]}], ")"}]}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.5476675318548813`*^9, {3.547869843464254*^9, 3.547869922710376*^9}}],

Cell[BoxData[
 RowBox[{"Tan", "[", "roll", "]"}]], "Output",
 CellChangeTimes->{{3.547869865190744*^9, 3.547869923304255*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q0", " ", "q2"}], "+", 
      RowBox[{"q3", " ", "q1"}]}], ")"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.547869991373143*^9, 3.547870001660379*^9}}],

Cell[BoxData[
 RowBox[{"Sin", "[", "pitch", "]"}]], "Output",
 CellChangeTimes->{{3.547869998872666*^9, 3.547870001924074*^9}, 
   3.5489119246596518`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q0", " ", "q3"}], "-", 
      RowBox[{"q2", " ", "q1"}]}], ")"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.548911951548883*^9, 3.5489119560825787`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "pitch", "]"}], " ", 
  RowBox[{"Sin", "[", "yaw", "]"}]}]], "Output",
 CellChangeTimes->{{3.548911948615593*^9, 3.5489119566128273`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q0", " ", "q1"}], "-", 
      RowBox[{"q3", " ", "q2"}]}], ")"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.548911969378213*^9, 3.548911969609977*^9}, {
  3.548912012977292*^9, 3.548912018992444*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "pitch", "]"}], " ", 
  RowBox[{"Sin", "[", "roll", "]"}]}]], "Output",
 CellChangeTimes->{3.5489119701071587`*^9, 3.5489120193366337`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q2", "^", "2"}], "+", 
        RowBox[{"q3", "^", "2"}]}], ")"}]}]}], ")"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.548912062176622*^9, 3.548912069327147*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "pitch", "]"}], " ", 
  RowBox[{"Cos", "[", "yaw", "]"}]}]], "Output",
 CellChangeTimes->{3.548912069698821*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q0", " ", "q3"}], "-", 
       RowBox[{"q1", " ", "q2"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q2", "^", "2"}], "+", 
          RowBox[{"q3", "^", "2"}]}], ")"}]}]}], ")"}]}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.547869940278426*^9, 3.5478699623096523`*^9}}],

Cell[BoxData[
 RowBox[{"Tan", "[", "yaw", "]"}]], "Output",
 CellChangeTimes->{{3.547869946962421*^9, 3.547869962673497*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"rotmat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"q0", "^", "2"}], "+", 
        RowBox[{"q1", "^", "2"}], "-", 
        RowBox[{"q2", "^", "2"}], "-", 
        RowBox[{"q3", "^", "2"}]}], ",", " ", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "-", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], ",", " ", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "+", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], ",", " ", 
       RowBox[{
        RowBox[{"q0", "^", "2"}], "-", 
        RowBox[{"q1", "^", "2"}], "+", 
        RowBox[{"q2", "^", "2"}], "-", 
        RowBox[{"q3", "^", "2"}]}], ",", " ", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q2", " ", "q3"}], "-", 
          RowBox[{"q0", " ", "q1"}]}], ")"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q3"}], "-", 
          RowBox[{"q0", " ", "q2"}]}], ")"}]}], ",", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}]}], ",", " ", 
       RowBox[{
        RowBox[{"q0", "^", "2"}], "-", 
        RowBox[{"q1", "^", "2"}], "-", 
        RowBox[{"q2", "^", "2"}], "+", 
        RowBox[{"q3", "^", "2"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TrigExpand", "[", 
   RowBox[{"TrigReduce", "[", "rotmat", "]"}], "]"}], "//", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.547875509463488*^9, 3.547875563824472*^9}, {
  3.547875625223946*^9, 3.547875638510171*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Cos", "[", "yaw", "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
       RowBox[{"Sin", "[", "yaw", "]"}]}], 
      RowBox[{"Sin", "[", "pitch", "]"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Cos", "[", "yaw", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
       RowBox[{"Sin", "[", "roll", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "roll", "]"}]}], " ", 
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Cos", "[", "roll", "]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.547875516429988*^9, 3.547875581858355*^9}, {
  3.547875625899639*^9, 3.5478756396316977`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "full", "]"}]], "Input",
 CellChangeTimes->{{3.547875585872057*^9, 3.547875587842338*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Cos", "[", "yaw", "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
       RowBox[{"Sin", "[", "yaw", "]"}]}], 
      RowBox[{"Sin", "[", "pitch", "]"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Cos", "[", "yaw", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
       RowBox[{"Sin", "[", "roll", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "roll", "]"}]}], " ", 
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "yaw", "]"}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "roll", "]"}], " ", 
        RowBox[{"Sin", "[", "pitch", "]"}], " ", 
        RowBox[{"Sin", "[", "yaw", "]"}]}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "pitch", "]"}], " ", 
       RowBox[{"Cos", "[", "roll", "]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.547875588239751*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.547667502464593*^9, 3.5476675030015793`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Rroll", ".", "Rpitch", ".", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.547667556509294*^9, 3.54766760030381*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"Sin", "[", "pitch", "]"}]},
      {
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "pitch", "]"}]}], " ", 
        RowBox[{"Sin", "[", "roll", "]"}]}]},
      {
       RowBox[{
        RowBox[{"Cos", "[", "pitch", "]"}], " ", 
        RowBox[{"Cos", "[", "roll", "]"}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.547667560478669*^9, 3.547667600678797*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=."}], ";", 
  RowBox[{"y", "=."}], ";", 
  RowBox[{"z", "=."}], ";", 
  RowBox[{"ax", "=."}], ";", 
  RowBox[{"ay", "=."}], ";", 
  RowBox[{"az", "=."}], ";"}]], "Input",
 CellChangeTimes->{{3.5476676378948317`*^9, 3.5476676485645523`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pitch", "=", 
   RowBox[{"ArcSin", "[", "ax", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"roll", "=", 
  RowBox[{"ArcSin", "[", 
   RowBox[{
    RowBox[{"-", "ay"}], "/", 
    RowBox[{"Cos", "[", "pitch", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.547667623590879*^9, 3.5476677058852158`*^9}, {
  3.547668083668275*^9, 3.5476680839690447`*^9}, {3.5476681862174597`*^9, 
  3.547668202839884*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pitch", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"roll", "=."}], ";"}]}], "Input",
 CellChangeTimes->{{3.5476684919011707`*^9, 3.547668495359655*^9}}],

Cell[BoxData["Ma"], "Input",
 CellChangeTimes->{{3.547667562141395*^9, 3.547667562624466*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"q0", ",", "q1", ",", "q2", ",", "q3"}], "}"}], "/.", 
  RowBox[{"yaw", "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{{3.547667710598352*^9, 3.547667713260643*^9}, {
  3.547668243591267*^9, 3.5476682450140533`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"roll", "=."}], ";", 
  RowBox[{"pitch", "=."}], ";"}]], "Input",
 CellChangeTimes->{{3.547761730298601*^9, 3.547761736380006*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rerr", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["pitch", "2"], "]"}], " ", 
        RowBox[{"Cos", "[", 
         FractionBox["roll", "2"], "]"}]}], ",", 
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["pitch", "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["roll", "2"], "]"}]}], ",", 
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["roll", "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["pitch", "2"], "]"}]}], ",", 
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox["pitch", "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["roll", "2"], "]"}]}]}], "}"}], ",", "roll"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.547761719900305*^9, 3.547761726324068*^9}, {
  3.54776175920503*^9, 3.5477617657225637`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["r"], "Input",
 CellChangeTimes->{3.547761766861123*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "th", "]"}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "phi", "]"}], " ", 
      RowBox[{"Sin", "[", "th", "]"}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "phi", "]"}], " ", 
      RowBox[{"Sin", "[", "th", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"Cos", "[", "phi", "]"}], ",", 
     RowBox[{"-", 
      RowBox[{"Sin", "[", "phi", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Sin", "[", "th", "]"}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "th", "]"}], " ", 
      RowBox[{"Sin", "[", "phi", "]"}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "phi", "]"}], " ", 
      RowBox[{"Cos", "[", "th", "]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547761767010356*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["rerr"], "Input",
 CellChangeTimes->{{3.5477617676127253`*^9, 3.547761768053521*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", 
    RowBox[{"Cos", "[", 
     FractionBox["pitch", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["roll", "2"], "]"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"Cos", "[", 
     FractionBox["pitch", "2"], "]"}], " ", 
    RowBox[{"Cos", "[", 
     FractionBox["roll", "2"], "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["pitch", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["roll", "2"], "]"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"Cos", "[", 
     FractionBox["roll", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["pitch", "2"], "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.5477617684783297`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"rollerr", "=."}], ";", 
  RowBox[{"pitcherr", "=."}], ";"}]], "Input",
 CellChangeTimes->{{3.547762056852865*^9, 3.5477620634296303`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rerr", "^", "2"}], " ", 
    RowBox[{"rollerr", "^", "2"}]}], "+", 
   RowBox[{
    RowBox[{"perr", "^", "2"}], " ", 
    RowBox[{"pitcherr", "^", "2"}]}]}], "/."}]], "Input",
 CellChangeTimes->{{3.547761771158701*^9, 3.5477617917733927`*^9}, {
  3.547762048783918*^9, 3.547762076237445*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox["pitcherr", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["roll", "2"], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       FractionBox["pitch", "2"], "]"}], "2"]}], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox["rollerr", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["pitch", "2"], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       FractionBox["roll", "2"], "]"}], "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox["rollerr", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["pitch", "2"], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["roll", "2"], "]"}], "2"]}], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox["pitcherr", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       FractionBox["pitch", "2"], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       FractionBox["roll", "2"], "]"}], "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox["pitcherr", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["pitch", "2"], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["roll", "2"], "]"}], "2"]}], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox["rollerr", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       FractionBox["pitch", "2"], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       FractionBox["roll", "2"], "]"}], "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox["rollerr", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["roll", "2"], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       FractionBox["pitch", "2"], "]"}], "2"]}], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox["pitcherr", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["pitch", "2"], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       FractionBox["roll", "2"], "]"}], "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.547761776525908*^9, 3.54776179234041*^9}, {
  3.54776206543717*^9, 3.547762070687289*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.54776180522931*^9, 3.547761809068777*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["sp", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["roll", "2"], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["pitch", "2"], "]"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["sr", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["pitch", "2"], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["roll", "2"], "]"}], "2"]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["sr", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["pitch", "2"], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["roll", "2"], "]"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["sp", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["pitch", "2"], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["roll", "2"], "]"}], "2"]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["sp", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["pitch", "2"], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["roll", "2"], "]"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["sr", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["pitch", "2"], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["roll", "2"], "]"}], "2"]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["sr", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["roll", "2"], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["pitch", "2"], "]"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["sp", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["pitch", "2"], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["roll", "2"], "]"}], "2"]}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.547761810231222*^9}]
}, Open  ]],

Cell[BoxData["\[AliasDelimiter]"], "Input",
 CellChangeTimes->{3.5477619086508913`*^9}],

Cell[BoxData[
 RowBox[{"D", "["}]], "Input",
 CellChangeTimes->{{3.547761715800432*^9, 3.547761715951013*^9}}],

Cell[BoxData["ArcTan"], "Input",
 CellChangeTimes->{{3.5476683951571827`*^9, 3.547668395882188*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigExpand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.547667718312904*^9, 3.547667749051734*^9}, {
  3.547668093075235*^9, 3.54766812639528*^9}, {3.547668209568111*^9, 
  3.547668217678797*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"ArcSin", "[", "ax", "]"}], "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["ay", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["ax", "2"]}]]], "]"}]}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"ArcSin", "[", "ax", "]"}], "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["ay", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["ax", "2"]}]]], "]"}]}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["ay", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["ax", "2"]}]]], "]"}]}], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"ArcSin", "[", "ax", "]"}], "2"], "]"}]}], "-", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"ArcSin", "[", "ax", "]"}], "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["ay", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["ax", "2"]}]]], "]"}]}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["ay", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["ax", "2"]}]]], "]"}]}], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"ArcSin", "[", "ax", "]"}], "2"], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"ArcSin", "[", "ax", "]"}], "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["ay", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["ax", "2"]}]]], "]"}]}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"ArcSin", "[", "ax", "]"}], "2"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["ay", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["ax", "2"]}]]], "]"}]}], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["yaw", "2"], "]"}]}], "-", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["yaw", "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"ArcSin", "[", "ax", "]"}], "2"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["ay", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["ax", "2"]}]]], "]"}]}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5476677203005953`*^9, 3.547667749399572*^9}, {
  3.547668090656619*^9, 3.547668126814062*^9}, {3.5476682112001953`*^9, 
  3.5476682179550047`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"ArcTan", "[", 
   RowBox[{"h", "/", "j"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.547667756231378*^9, 3.547667774891972*^9}, {
  3.5476680307324944`*^9, 3.547668033308674*^9}, {3.5476680718835773`*^9, 
  3.547668079691484*^9}}],

Cell[BoxData[
 FractionBox["1", 
  SqrtBox[
   RowBox[{"1", "+", 
    FractionBox[
     SuperscriptBox["h", "2"], 
     SuperscriptBox["j", "2"]]}]]]], "Output",
 CellChangeTimes->{{3.5476677672555037`*^9, 3.5476677752415113`*^9}, 
   3.5476680337464523`*^9, {3.54766807054482*^9, 3.547668080411849*^9}}]
}, Open  ]]
},
WindowSize->{1073, 725},
WindowMargins->{{Automatic, -2}, {Automatic, 48}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1323, 22, 27, "Input"],
Cell[1883, 44, 363, 7, 27, "Input"],
Cell[2249, 53, 257, 6, 27, "Input"],
Cell[2509, 61, 217, 6, 27, "Input"],
Cell[2729, 69, 677, 20, 58, "Input"],
Cell[CellGroupData[{
Cell[3431, 93, 69, 1, 27, "Input"],
Cell[3503, 96, 5380, 147, 137, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8920, 248, 245, 5, 27, "Input"],
Cell[9168, 255, 15571, 260, 397, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24776, 520, 317, 7, 27, "Input"],
Cell[25096, 529, 392, 7, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25525, 541, 228, 6, 27, "Input"],
Cell[25756, 549, 159, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25952, 556, 148, 3, 27, "Input"],
Cell[26103, 561, 138, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26278, 568, 176, 3, 27, "Input"],
Cell[26457, 573, 116, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26610, 580, 144, 3, 27, "Input"],
Cell[26757, 585, 94, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26888, 591, 171, 4, 27, "Input"],
Cell[27062, 597, 96, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27195, 603, 651, 21, 58, "Input"],
Cell[27849, 626, 115, 2, 27, "Output"],
Cell[27967, 630, 114, 2, 27, "Output"],
Cell[28084, 634, 97, 1, 27, "Output"]
}, Open  ]],
Cell[28196, 638, 92, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[28313, 643, 336, 9, 27, "Input"],
Cell[28652, 654, 810, 23, 43, "Output"]
}, Open  ]],
Cell[29477, 680, 94, 1, 27, "Input"],
Cell[29574, 683, 1305, 41, 27, "Input"],
Cell[30882, 726, 188, 4, 27, "Input"],
Cell[31073, 732, 480, 16, 27, "Input"],
Cell[CellGroupData[{
Cell[31578, 752, 1649, 33, 43, "Input"],
Cell[33230, 787, 1538, 27, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34805, 819, 654, 16, 27, "Input"],
Cell[35462, 837, 630, 15, 27, "Output"]
}, Open  ]],
Cell[36107, 855, 447, 13, 43, "Input"],
Cell[36557, 870, 218, 5, 27, "Input"],
Cell[CellGroupData[{
Cell[36800, 879, 375, 10, 27, "Input"],
Cell[37178, 891, 199, 5, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37414, 901, 484, 14, 27, "Input"],
Cell[37901, 917, 258, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38196, 927, 214, 4, 27, "Input"],
Cell[38413, 933, 228, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38678, 942, 125, 2, 27, "Input"],
Cell[38806, 946, 181, 3, 30, "Output"]
}, Open  ]],
Cell[39002, 952, 125, 2, 27, "Input"],
Cell[39130, 956, 204, 3, 27, "Input"],
Cell[CellGroupData[{
Cell[39359, 963, 230, 4, 27, "Input"],
Cell[39592, 969, 103, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39732, 975, 548, 14, 27, "Input"],
Cell[40283, 991, 484, 13, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40804, 1009, 242, 7, 27, "Input"],
Cell[41049, 1018, 1448, 24, 75, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42534, 1047, 2765, 81, 88, "Input"],
Cell[45302, 1130, 13944, 231, 229, "Output"]
}, Open  ]],
Cell[59261, 1364, 2810, 85, 103, "Input"],
Cell[62074, 1451, 1803, 62, 73, "Input"],
Cell[63880, 1515, 797, 28, 73, "Input"],
Cell[CellGroupData[{
Cell[64702, 1547, 190, 4, 27, "Input"],
Cell[64895, 1553, 30608, 510, 232, 23479, 392, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95540, 2068, 117, 2, 27, "Input"],
Cell[95660, 2072, 7818, 132, 229, "Output"]
}, Open  ]],
Cell[103493, 2207, 101, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[103619, 2212, 71, 1, 27, "Input"],
Cell[103693, 2215, 6820, 186, 152, "Output"]
}, Open  ]],
Cell[110528, 2404, 166, 2, 27, "Input"],
Cell[110697, 2408, 1023, 31, 27, "Input"],
Cell[CellGroupData[{
Cell[111745, 2443, 252, 7, 27, "Input"],
Cell[112000, 2452, 109, 2, 27, "Output"]
}, Open  ]],
Cell[112124, 2457, 339, 7, 27, "Input"],
Cell[112466, 2466, 1691, 50, 58, "Input"],
Cell[114160, 2518, 233, 5, 27, "Input"],
Cell[CellGroupData[{
Cell[114418, 2527, 185, 3, 27, "Input"],
Cell[114606, 2532, 2356, 67, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116999, 2604, 178, 3, 27, "Input"],
Cell[117180, 2609, 2306, 66, 73, "Output"]
}, Closed]],
Cell[119501, 2678, 2078, 63, 52, "Input"],
Cell[CellGroupData[{
Cell[121604, 2745, 307, 6, 27, "Input"],
Cell[121914, 2753, 1005, 27, 61, "Output"]
}, Open  ]],
Cell[122934, 2783, 92, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[123051, 2788, 127, 2, 27, "Input"],
Cell[123181, 2792, 302, 9, 27, "Output"]
}, Open  ]],
Cell[123498, 2804, 796, 24, 73, "Input"],
Cell[124297, 2830, 92, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[124414, 2835, 677, 17, 58, "Input"],
Cell[125094, 2854, 377, 9, 46, "Output"],
Cell[125474, 2865, 382, 10, 46, "Output"]
}, Open  ]],
Cell[125871, 2878, 431, 11, 27, "Input"],
Cell[126305, 2891, 196, 4, 27, "Input"],
Cell[CellGroupData[{
Cell[126526, 2899, 133, 2, 27, "Input"],
Cell[126662, 2903, 79, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126778, 2909, 96, 1, 27, "Input"],
Cell[126877, 2912, 1927, 57, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128841, 2974, 94, 1, 27, "Input"],
Cell[128938, 2977, 1698, 56, 53, "Output"]
}, Open  ]],
Cell[130651, 3036, 122, 2, 27, "Input"],
Cell[130776, 3040, 311, 7, 43, "Input"],
Cell[CellGroupData[{
Cell[131112, 3051, 784, 21, 43, "Input"],
Cell[131899, 3074, 2041, 64, 116, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133977, 3143, 129, 2, 27, "Input"],
Cell[134109, 3147, 2113, 66, 116, "Output"]
}, Open  ]],
Cell[136237, 3216, 2185, 69, 154, "Input"],
Cell[CellGroupData[{
Cell[138447, 3289, 242, 6, 27, "Input"],
Cell[138692, 3297, 709, 23, 46, "Output"]
}, Open  ]],
Cell[139416, 3323, 647, 16, 43, "Input"],
Cell[140066, 3341, 408, 8, 27, "Input"],
Cell[CellGroupData[{
Cell[140499, 3353, 574, 12, 27, "Input"],
Cell[141076, 3367, 829, 23, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141942, 3395, 181, 3, 27, "Input"],
Cell[142126, 3400, 5120, 145, 192, "Output"]
}, Open  ]],
Cell[147261, 3548, 100, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[147386, 3553, 131, 2, 27, "Input"],
Cell[147520, 3557, 1393, 42, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148950, 3604, 552, 18, 27, "Input"],
Cell[149505, 3624, 126, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149668, 3631, 294, 8, 27, "Input"],
Cell[149965, 3641, 155, 3, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150157, 3649, 296, 8, 27, "Input"],
Cell[150456, 3659, 184, 4, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150677, 3668, 343, 9, 27, "Input"],
Cell[151023, 3679, 185, 4, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151245, 3688, 351, 10, 27, "Input"],
Cell[151599, 3700, 158, 4, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151794, 3709, 527, 17, 27, "Input"],
Cell[152324, 3728, 125, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152486, 3735, 2063, 64, 73, "Input"],
Cell[154552, 3801, 2407, 68, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156996, 3874, 132, 2, 27, "Input"],
Cell[157131, 3878, 2332, 67, 61, "Output"]
}, Open  ]],
Cell[159478, 3948, 94, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[159597, 3953, 229, 5, 27, "Input"],
Cell[159829, 3960, 984, 29, 61, "Output"]
}, Open  ]],
Cell[160828, 3992, 281, 8, 27, "Input"],
Cell[161112, 4002, 445, 11, 43, "Input"],
Cell[161560, 4015, 204, 5, 43, "Input"],
Cell[161767, 4022, 94, 1, 27, "Input"],
Cell[161864, 4025, 269, 6, 27, "Input"],
Cell[162136, 4033, 165, 4, 27, "Input"],
Cell[162304, 4039, 971, 29, 46, "Input"],
Cell[CellGroupData[{
Cell[163300, 4072, 69, 1, 27, "Input"],
Cell[163372, 4075, 872, 27, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164281, 4107, 98, 1, 27, "Input"],
Cell[164382, 4110, 883, 29, 46, "Output"]
}, Open  ]],
Cell[165280, 4142, 173, 4, 27, "Input"],
Cell[CellGroupData[{
Cell[165478, 4150, 352, 10, 27, "Input"],
Cell[165833, 4162, 2570, 80, 157, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168440, 4247, 130, 2, 27, "Input"],
Cell[168573, 4251, 2610, 84, 83, "Output"]
}, Open  ]],
Cell[171198, 4338, 87, 1, 27, "Input"],
Cell[171288, 4341, 110, 2, 27, "Input"],
Cell[171401, 4345, 100, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[171526, 4350, 226, 4, 27, "Input"],
Cell[171755, 4356, 3786, 122, 203, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175578, 4483, 281, 6, 27, "Input"],
Cell[175862, 4491, 304, 8, 72, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
